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Preface 


When my company, Mr Micro Ltd, obtained a pre-release CPC464 
from Amstrad for program development we were immediately 
impressed by its features and performance. | am pleased that 
alongside our development of commercial software for the machine 
we have been able to produce this book of games for owners to enter, 
to learn from, and enjoy. 

The Amstrad computer is a very capable machine and the 
Locomotive Software BASIC operates very quickly. This helps to 
produce games which run at an acceptable speed. 

Even a fast BASIC such as the one in the Amstrad is widely 
considered as less than ideal for writing games due to its relatively 
slow operation speed when compared to machine code. Although 
this can be true for some fast action games, this book is written to 
demonstrate that, in the right hands, BASIC can produce games 
which are enjoyable, exciting and require quick thinking. 

Not all the programs are written totally in BASIC, and you will 
find some machine code routines are used in some programs. 
Machine code has been used whenever required to ensure a first class 
game. Encounters with the ‘raw code’ have been made as painless as 
possible. 

I am always amused when I see a game advertised as ‘100 per cent 
machine code’, especially when the game turns out to be very poor. 
Some people seem to think that the phrase is somehow the software 
equivalent of being a Five Star Hotel. It is not! 

It is never automatically true that machine code is better than 
BASIC. What matters is the game. Whether it is BASIC or machine 
code should not matter to the player. 

It is worth commenting on the opinions some people have of 
games. It is often said that games are a trivial use of the power of the 
micro and a waste of time for the player. I know of some people who 
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never admit that they play computer games. This is presumably on 
the basis that if you enjoy it, then it can’t be good. 

The fact is that typing in programs is a superb way to learn about 
the computer and its languages. Games not only provide a rewarding 
end result, but actually call upon more of the machine’s resources 
than say a business program. This means that game programming is 
the best way to learn a computer language. 

Games have been played since the civilisation of man. Indeed 
many eminent people have theorised that game playing is a vital 
factor in the development and advancement of mankind. Only the 
micro can so quickly and easily produce such a wide range of 
stimulations. It must bea legitimate use of this technology to improve 
our leisure. 

Since you have read this far | hope that we can count on your 
support for game playing! Remember to speak out in favour of fun 
whenever you can. If people say that game playing is a waste of time, 
then remind them that watching TV, reading a novel, or even going 
for a walk, could be described the same way. We all have a need to 
relax. Let each do it in his own way. For me the fun is in designing 
and developing games that others can enjoy playing. I hope that you 
will enjoy this collection. 

In producing this book | have been particularly keen to ensure that 
a wide range of games are included. Equal importance has been 
placed upon the graphics and presentation to ensure that each one is 
well worth the typing effort. 

The production of this book has been a team effort requiring a 
great deal of dedication and application by all concerned. I am 
pleased to record my thanks to programmers ‘ISSI’, whose skill is 
well represented, and to ‘Andy’ who also has fine examples of his 
work included. The other key members of the team were Janet and 
my wife Val who typed, and re-typed, until the task was complete. 

Finally | record my thanks to Ann Berne and Richard Miles of 
Granada Publishing for commissioning the book and guiding it 
through the convoluted channels of publishing to reach your hands. 


Jim Gregory 


Introduction 


Each game featured in these pages has been specially written for this 
book. This has resulted in a range of programs covering all types of 
games. They incorporate many useful techniques and some share the 
same subroutines. In some cases, control routines are arranged in 
such a way that if you use the method detailed in the chapter on 
subroutines you will be able to save yourself a lot of typing! 

Each listing has been printed with a width setting of 40 columns to 
help reduce entry errors. This means that if you use Mode | to enter 
the programs then a line on the page will match a line on the screen; 
this feature is an example of the effort which has gone into ensuring 
your complete success with each and every program. 

After extensive testing all the listings have been produced from 
actual working programs. Each has been reproduced directly from 
the computer printout. This means that the most likely reason fora 
program not working is that the reader has typed it in wrong! 

I have entered many programs from books and magazines, and | 
know from experience that at some stage you will not believe that you 
have got it wrong. Please read the following notes on programming 
carefully. They will help you to avoid the most common mistakes as 
you enter the programs. Follow the advice given and you will find 
that your microcomputer hobby can be more enjoyable and less 
frustrating. 

Although most of the following guidelines may seem obvious, each 
will save you time or trouble. If you are prepared and relaxed then 
few errors will be made. 


First program yourself 


1. Set up your equipment on a desk or table, make sure that you 
are seated properly and try to keep your back straight. Ensure that 
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lighting is good and that the book is supported where it can be read 
easily. 

2. Before you start a long typing session ensure that everything is 
plugged in! 

3. Make sure that you have a good supply of blank tapes. 

4. If your blank tapes have a ‘leader’ on them, it is a good idea to 
prepare them for saving by turning the hub until the brown of the 
tape shows. 

5. To make certain everything is OK, get a long audio tape suchas 
a C90, which will be your working tape. Next complete a ‘Save and 
load test’, e.g. type in 


Id REM — TEST 
20 PRINT“TEST O.K.” 
30 GOTO I 


or a similar short program. 

Save Test, rewind the tape, then load Test, and‘RUN’it. IfthisisOK, 
do not rewind the tape, leave it where it stopped. If all does not 
operate correctly then check everything and try again, until all is 
working. You will then be able to use this tape to store your program, 
either when you have finished or part way through to be continued 
later. 

I recommend that you use the Speedwrite option and save the 
program twice rather than use the slow speed. This has been found 
to be totally satisfactory during the development of programs for this 
book. 

6. When you save a part version give it a title which will help you 
later, such as ‘VI’, ‘V2’, etc. You may prefer to use the date and time 
of saving, e.g. 8.15—14/ 10/85. 

As you save a version, remember to make a note on the cassette or 
insert of the title and the counter number. These will enable you to 
retrieve the program quickly when you wish to resume entering the 
program or to ‘debug’ your completed program. 

7. Always save onto tape before you type RUN. The microworld is 
full of keen folk who lost hours of work because they typed RUN 
before saving. (If you have saved earlier versions as directed, at least 
only part will be lost.) 

The reasons for losing a program in this way are various. Examples 
are: mistyping words so that the interpreter performs a ‘new 
instruction, or gets into a loop from which there is no escape except 
by switching off. Programs which incorporate either machine code, 
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POKE statements or System calls are most liable to ‘crash’, due to 
incorrect values being encountered by the program. 

8. When a program is finished and working it is recommended 
that one copy is kept on a C90 back-up tape along with other 
programs. The main copy should be stored ona suitable short length 
cassette such as a CIS. Only one program per side should be allowed, 
to enable it to be loaded easily and quickly when required. Remember 
to write the title on the label. 

This two-tape system should help to prevent re-typing if a cassette 
is lost, damaged or develops a fault. 

9. Many users become very careless about storage of cassettes and 
then wonder why they sometimes become faulty. If you want to keep 
what you’ve saved follow these rules: 


@ Identify all tapes and cases clearly. 

@ Keep them in cases in a rack or storage system. 

@ Store away from heat. 

@ Store away from any magnetic fields such as TV sets, computers, 
loudspeakers, motors, fans and very definitely telephones, all of 
which may damage or erase your program. 

@ Don't leave tapes in the deck when they are not required, and do 
not leave the deck switched into ‘play’ unless the program requires 
it. 

@ Remember to break out the plastic tabs at the back of the tape to 
prevent accidental erasure of the program. If ever you wish to re- 
record over a protected tape temporarily cover the tab hole with 
adhesive tape. 


10. Don’t spend longer than about three hours ina session. Havea 
break, walk about, have a shower, play a game! 


Other problems 


PARIS 
IN THE 
THE SPRING 


Read the above out loud! You will be surprised to know that most 
people read it as ‘Paris in the spring’. Perhaps you did too! However, 
it actually says ‘Paris in the the spring’. The word ‘the’ is printed 
twice, but because it is not expected and because the phrase is 
familiar, the second ‘the’ is not ‘seen’ by the mind. 
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A similar problem occurs when programs are typed in from 
listings. You often type what you expect to see instead of what is 
printed. This is why the letter O is sometimes typed when it should be 
‘zero’ (printed as ()), or S is incorrectly typed instead of the dollar 
symbol (printed as $). 

A moment’s lapse of concentration can lead to lines becoming 
jumbled as the eye jumps from one line to the next. For example: 


1? PRINT“This is the start” 
20 PRINT“This is next” 


becomes: 
1? PRINT“This is the next” 


Look at the screen to check that your shifted letters have been 
correctly entered. Failure to do this produces classics such as: 


1) PRINT 2 WHERE ARE THE QUOTES!2 


Under no circumstances should you attempt to alter a program as 
it is entered. If the numbers go: 10,20,30, etc., then enter them like 
that. Changes are best made after a program is known to be working. 
This applies to everything — do not be tempted to miss out lines 
because you think that they may be optional. Otherwise program 
control could attempt to go to a line number that you have changed 
or deleted, and crash the program. 

‘Rem’ statements are remark statements and have been used to 
help you to understand the program. They should be entered as 
printed. Only when a working program has been produced and saved 
should you perhaps produce a copy which has no‘REMs’. This could 
save a little memory, but there is no real benefit to be obtained. On 
the programs listed in this book it is safe to omit all ‘REMs’. This is 
because care has been taken not to send control toa ‘REM?’ line. Be 
careful with programs from other sources — there are some authors 
who think that it is good practice to send control to a ‘REM’ line. 

Spaces are always of vital importance in a computer program. 
Care should be taken to get them right, to enable spaces to be counted 
and entered accurately. Simply align a piece of paper or card with the 
characters above and below, and count as the edge is moved along. 

The width of printout has been set to match the 40 column Mode | 
display of the computer. If you use Mode | for entry this should help 
you to check that everything is right - forexample, if the listing shows 
a line ending with four spaces. Then your line on the screen should 
also have four spaces at the end. Please be particularly careful to 
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enter each line as a complete line from the line number commands. 
Confusion could arise when the line includes numbers which wrap 
onto the next line. Do not enter these lines separately, or the 
computer will take it as a line number which will cause problems. 

You may find it useful to place a ruler along the line you are up to. 
This will further reduce the risk of errors. 

If you follow all the foregoing then you should not have any great 
problems. However, it is inevitable that some bugs will creep in. If 
your program fails to operate properly then the last chapter contains 
some helpful advice on debugging. 

That’s enough preparation for you, let’s now start practising with 
the next chapter and some useful subroutines. 


Techniques Used in the 
Programs 


Colour pointers (logical colours) 


The system of colour allocation used in the Amstrad can help 
produce the illusion of very fast movement. The system works by 
drawing each moving element of a picture separately with different 
colour pointers. Next the pointers are swapped under program 
control. When each colour is changed the effect on screen is 
instantaneous and produces the impression of movement. 

Many of the games in this book have been designed around this 
feature. Maze Maniac uses the technique to great effect. The result is 
a maze which changes views very rapidly. This speed could not have 
been achieved otherwise, unless extensive machine code routines 
were used. 

The cassette which came with your Amstrad has some other 
examples which are very decorative. 

This technique works best in Mode @), since 16 colours are available 
to produce in effect 16 sets of movement or switched zones. If greater 
resolution and limited movement is required then Mode | provides 4 
sets. 

Remember that one colour will be required for the background 
and any permanent information that you want on screen. 

Take a careful look at the dice rolling routine contained in this 
book, to see another example of how effective this system can be. 


Exclusive oring (KOR) 


This is another technique which is used extensively throughout this 
book. The use of XOR enables information to be superimposed upon 
the image which is already on screen. Performing the XOR again will 
remove the image, leaving the background as it was. 
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Examples of the commands required to implement this powerful 
feature can be found throughout the listings. The Chess Duel 
program contains some superb examples. 

You will find it useful to use the listings as a source for solutions to 
programming problems. Try to understand the reason that certain 
routines are used and how they work. Once the programs are fully 
working and saved on tape then it is recommended that you 
experiment. Change the colours or parameters and see what happens. 
This way you can learn more about programming and be able to 
incorporate what you learn into your own programs. This is the most 
satisfying aspect of having your own computer. 


Subroutines 


Short Cuts to Success 


We estimate that the total memory used by all the listings in this book 
is over 200K. It has therefore been essential to reduce the amount of 
entry to a minimum. 

This has been done by the extensive use of subroutines. In 
particular three routines are used extensively. 


|. High Score. This basic program takes the score achieved by our 
player and compares it with those already in its array. If the new score 
is higher than one in the table then the opportunity is given for the 
player to enter his nickname, initials or whatever. This routine should 
be typed in as listed here and then merged with the appropriate game 
when required. 

Changes will be required to some programs, as follows. Type in the 
replacement lines given for each program. 


Rainbow Breakout: 26109 GOSUB 60009:GOTO 1600 
Maze Maniac: 33040 GOSUB 69000:GOTO 1000 
Parrot: 195 SC=PO*1@ 
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200 GOSUB 609000:GOTO 25 
Pick Man: 35010 GOSUB 60000:GOTO 190@ 
Kinkey Dong: 6005 GOSUB 60000:GOTO 1900 
Hi-Lo and Skippy need no additional lines. The subroutines 
should just be merged in. 


THIGH SCURE? 


60000 MODE 1L:BORDER @:PAPER @:PEN 2:CLS: 
re=Q 

£0060 PRINT:PRINT TARC6)0;"High Scores fo 
ro "sqamt 

60070 PRINT: PRINT 

£00380 FOUR a=1 TO 3 

60090 PRINT:PRINT TARCd> jaz" +--+. "SrnahtCad 
3 TABC 39) 35 c0Ca) 

6£01@@ NEXT a 

60110 FOR a=S TO 1 STEP -—1 

60120 IF sc*sco¢a> AND sctiscoCa-1) THEN 
re=a 

60130 NEXT 

60140 IF re=@ THEN 60430 

60150 FOR a=d TO re STEP -1LlinatCatl)=nas 
Cad iscocatid=scotCa) = NEXT 

640160 nat red =""IscoCre)d=sc 

60170 CLS:PRINT?PREINT TABC6);"High Score 
s§ for "sgam$ 

640130 PRINT: PRINT 

60190 FOR a=1 TO &S 

40200 PRINTSPRINT TABRCd) yazg"-- ee" pnatCad 
3; TARCS@)ss5cocad 

60210 NEXT a 

60220 PRINT: PRINT" Please enter yo 
ur name "ins="ARCDEFGHI JELMNOPORSTUVWXYZ 


* ] w 
60220 PRINT:PRINT TABCS) pngéix=S 
60240 PRINT? PRINT" Jo o-+. End." 


69250 LOCATE x, ,19:PRINT"-" 

60260 LOCATE 10,22:PRINT natCre> 

60270 GOSUBR 29O@@ — 

640250 IF le=1 AND x25 THEN LOCATE x,13%!P 
RINT " "ix=x-1 

60290 IF ri=il AND x33 THEN LUICATE x,19: 
PEINT " "ix=x4tl 
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60300 IF fi=i1 AND MID$(n$,¢x-d),19="J"TH 
EN 64340 
60310 IF fi=1i THEN natCred=nat(re +MIDS¢ 
n$,¢Ox-d),1) 
IF LEN(nat(redI=15 THEN 60240 
GOTO 40250 
603 =A MODE i:CLS 
60350 PRINT:PEINT TABC6)3"High Scores fo 
ro "'sqgams$ 
£03560 PRINT:PRINT 
60370 FOR a=1 TO & 
60580 PRINTIPEINT TARC4). sag" eee" GnasCad 
jTABC 30) 58 cola) 
E0390 NEXT a 
604@@ PRINTIPRINT " Press FIRE to play 
again." 
60d@5 aga" 
64410 GOSUR 29@@@SIF fi=1l THEN 60420 
640415 GOTO 64410 
6@d20 RETURN 
64430 IF scexsce¢l1) THEN 460340 
644dd@ re=1:GOTO 6@15@ 


2. Inkeys. This is a machine code subroutine used to enable the 
joystick or the cursor pad to be read very quickly. The routine is 
poked into memory by a short program to avoid difficulties which 
may otherwise be encountered. 

Type in the routine as listed and then save to tape. Then whenever 
required it can be merged into a program. Each listing clearly shows 
when the routine is required. 


TINE EYS? 


ot et ot 
Cer are 


VSO REM +e>ee eee onkeys/joy 
29000 le=@iri=Otup=Oido=Oifi=Oie 
7@1@ CALL addrt+itia=PEEKCaddr) 
bales IF a= OF a=2d2 THEN le=1i 
IF a=9 OF a=2d5 THEN ri=1 
Gao IF a=11 OR a=2d@ THEN up=1 
2IOSO IF a=1@ OF a=2d1 THEN do=1 
1 


X=O8 G=O 


Ps 


aR hi ha 


as x 
a 
| a, 


mn 


70@6@ IF a=S5 OF a=2id THEN fi=1 
29070 IF a= THEN q=1 


ara gy aie) 


td 


Subroutines 11 


27080 IF a=S32 THEN ex=1 
290970 RETURN 
4 *> poke inkeys @2decd¢ 
FIO Spe leas aa ag al ai 
F210 RESTORE 
S20 FOR n=a See To addrt+1 
READ atIF a=999 THEN a=h 
IF a=998 THEN a=c 
PORE nya 
29560 NEXT nm 


29S7O RETURN 
2ISEO DATA O,62,0,50, 999,992, 205, 27 
2ISIO DATA 187, 208,50, 999,993,201 


3. Char Check. This is another machine code routine used 
extensively in this book. Its purpose is to place the ASCII value of a 
character cell into the BASIC variable‘CH’. It is used after the cursor 
has been positioned using LOCATE x,y. It is called by ‘GOSUB 
3 9N0". 

This enables a program to detect whether two items have collided 
or perhaps whether the ‘ball’ in Rainbow Breakout has hit a brick. 
Once typed in and saved the routine is merged wherever indicated 
within a program listing. 


CHAR CHECK? 


29950 FEM bebo R ERD char check @#¢¢cee" 
30@0® CALL locatl 

20010 ch=PEEKC Loca) 

SOO20 RETURN 


SOASO “> poke check ¢#f<eecae 
390500 c= INT(loca/256) th= loca-256*C¢ 
S@51@ RESTORE 3@sa@ 

20520 FOR n=loca TO locati3 

30530 READ atIF a=9779 THEN a=h 

S050 IF a= ve THEN a=c 

SO@S50 PORE mya 
ZO@560@ NEXT 1 
SO570 RETURN 
SO@580 DATA @,62 


: 5) > ee 
30590 DATA 187,208,590, 999,995, 201 
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Subroutines are used extensively for other programs in the book. 
These are listed along with the main programs where applicable. 


Draughts/ Chess. The board and other common routines can be 
merged as indicated. 

Dice games. The dice throwing routine and the other three games 
are designed to form one whole program with menu selection for 
each game. 

Card games. The ‘card core’ can be used in each game as directed. 


How to merge 


If it is wished to merge a set of routines into an existing program: 


First save the program which is in the machine. 

Next cue the tape containing the ‘Merge’ file. 

Type MERGE “” and ‘Enter’. Then press Play on the tape deck 
and follow prompts. 

4. When complete, ‘Save’ the new program before ‘Running’. 
5. The program should now be ready. 


weno 


Sometimes you may prefer to load in the subroutine program first 
and then simply add the new lines to it. 

Once you have entered the subroutines and stored them on tape 
you are advised to try them out ina suitable program. A good one to 
start with is Rainbow Breakout in the classic games section. 


i 
Marie Celeste 


An Adventure at Sea 


In this text adventure you find yourself moored alongside the 
legendary ghost ship. 

What is the secret of the Marie Celeste? Where are the crew? 

By giving commands to the computer you can solve this marine 
mystery. By mixing up the text in the listing, care has been taken not 
to spoil your fun. In this way it is hoped that you will not be able to 
guess the solutions to the puzzles as they are typed in. 

It is usual for adventures to require North, South, East and West as 
directions, but since this one has a nautical setting directions are: 
Forard, Aft, Starboard or Port. Which, in case you do not know, are 
equal to front of ship, rear of ship, right looking forward and left 
looking forward respectively. 

As you move it is a good idea to draw a map. This map will help 
you to find your way around or identify locations that you have not 
yet visited. 

Two-word instructions such as ‘Take bucket’ are accepted or the 
direction may beshortened to FOR, AFT,STA and POR. Adventures 
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often require the player to enter :: INVENTORY’ to see what is being 
carried. In this adventure the inventory is permanently displayed. 
One of the enjoyable (but often frustrating) aspects of adventures is 
trying lots of different ‘verbs’ to see if they have any effect! Common 
verbs for adventures are: get, take, down, up, climb and unlock. 
Whilst you are on board, try lots of different ones. Try ‘Examine cat’ 
at the right time and see what happens. 

Once you have solved the adventure invite others to play it. It is just 
as satisfying watching someone else make the same mistakes and 
perhaps have the same success as you. 


1 REM <<< Marie Celeste <> ISSI/JIM 
2 REM 

SOO GOTTA 27000 

190 RESTORE 1200 

1910 FOR n=1 TO 6 

1920 FOR m=2 TO ao 

1930 FREAD atLOCATE m,n 

194 PRINT CHRE#¢a); 

1@5@ NEXT m 

1960 NEXT ni 

1100 FETLUFEN 

1200 DATA 158,154,156,154,156,32,352,32,35 


4 a ea gs apes Coe as 

232,32, 32,32, 32,52, 32,32, 52,352, 52,159, 1 
he wa ae 

Sd, 156,32, 32,532,156, 52452,52,52,52,32,14 


9,352,352, 52,52,32 

121@ DATA 149,32, 149,32,149,32,32,32,32, 

32, S2y52, 32,227, 32,052,352 ,352,352,3 Ey ld9,32 
449 3203052. 1d9 632,52 ,.94 52552, 52, 151 5 
15d, 32,32, 52,52 

122 DATA 149,32,149,32,149,32,150,15d,1 
56,32,158,154,156,159,32,150,154, 156,52, 

eeu »32,32,150, iSid, 156,149,150, 154,156 

SO,15d, 156,149,32,150,15d, 156,32 

12 30 DATA 149,32,149,32, 149, 32,32, 32,149 
, 32,149, 32,352,149, 32,151,154d,153,32,32,1 

49, oe ais iSd,153,149,151,154¢,1535,149 

32,153,149,32,151, 154,153,32 

12d DATA 149,32,149,32,149,32,150,154,1 

57, 32,149, 32, 32,149, 32,149, 52,352,352, 52,1 

49,32,32,149,32,32,149,149,32,352,147,15d 
(156,149, 32,149, 32, 32,32 


iz f5@ DATA 155,352,155 ,32, talay epee baa 
55 ,32,155,32,32,155, 52,147, 154,153,232 ,32 
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,147,154,153,147,154,153,155,147,154d,153 
,147,154,153,147,153,147,154,153 
150 RETURN 


Ld7EO 
ZOO1® 
ZOOZO 
ZOO3@ 
ZOOL 
29050 
ZOVdE® 
ZaOBT7O 
ZOVEO 
2O1M® 
ZOWSD 
21000 
21014 
21920 
Z19M2a 
21100 
Z11ii1®@ 
21120 
ZLLZS 
21120 
Z1Llida@ 
21150 
21160 
21170 
2LLE@ 
Z1L20@ 
Z1LZOS 
ZiZ1® 
2215 
21220 
2LAB25 
21230 


4 OTe 
ed ltt 


21240 
21245 
21250 
21255 
21260 
21265 
21270 


21275 


REM $o5>>>>R >> Screen #<teeceiee+ 
INK 9,3: INE 1,2@:INK 2,@:INK 2 
MCIDE 1 

BORDER @:PAPER 2:PEN 3:CLS 
WINDOW #1,1,290,5,16 

WINDOW #2,1,20,17,25 

WINDOW #2,31,d0,8,25 

PAPER #1,@:PEN #1,1°CLS #1 
PAPER #2,2°PEN #2,3:CLS #2 
PAPER #3,3°PEN #3,@:CLS #3 
RETURN 

FEM $3222 >> initialize “444¢<¢<¢ 
DIM A¢19,7) 

DIM of¢11) 

DIM m¢1@,4) 

DIM o¢(11)9 

FESTORE 21200 

FOr n=1 TO 19 

FREAD din,lo,yddn,2>,d¢n,39,d¢n,4) 
READ dn, 5), dn, 6),d¢n, 7) 

READ men, ld ym(n, 2) mCn,s)smcn,d) 
NEXT 

FOF m=1 TO 11 

READ of (rm) ,oCrm) 

NEXT wn 

FE TLIFIN 

DATA 1,3,190,11,20,0,@ 

DATA ®,9,9,@ 

DATA 12,346,22,9,9,0,@ 

DATA 1,1,9,9 

DATA 13,16,1,27,4,30,20 

DATA 1,9,1,9 

DATA 13,14,3,23,9,9,9 

DATA ©,1,1,9 

DATA 1,18,35,2,33,9,@ 

DATA @,1,9,@ 

DATA 1,3,7,11,29,9,% 

DATA 0,9,9,9 

DATA 2,24,290,13,15,22,16 

DATA 1,,1,1 

DATA 3,39,29,9,4,9,@ 

DATA @,9,1,9 
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21250 DATA 1,5,34,29,5,9,9 
21255 DATA 1,9,@,1 

21290 DATA 1, 17,27, 33,5,50,20 
21295 DATA @,9,1,9 

21300 DATA KNIFE ,& 

21210 DATA TARPALILIN,1 

21320 DATA WATER ON DECE,2 
21330 DATA ROPE ,4 
213d@ DATA NOTE,S 
21250 DATA BUCKET , 4 
21360 DATA KEY,® 
21370 DATA CAT, 
21330 DATA MOP, 
21370 DATA WELLIES,& 
21400 DATA HOOKS, @ 
219730 REM 2oo >) ee Lr peat 8 
229000 m$=""EPRINT #22PRINT #2,' 
Z2010 at=INEEY$! as=LIPPERS( ast) 
22020 IF Cate"A" OR age"Z")AND afer" " A 
ND a$<>CHR$¢C13> AND at<eCHE$ C127) THEN G 
ATO 2E@1@ 

22030 SOUND 1,150,2,15 

22035 IF aS$=CHR$¢127) AND m$=""" THEN GOT 
OQ 22010 

22040 IF at=CHR$(127) THEN m$=LEFT$¢(m$,Lb 
EN(m$>—-1):=PRINT #2,CHE$(S) 5" "SCHESCS) 55 
GOTO 2201 

22050 IF at=CHR$(13) THEN PRINT #2, CHRS¢ 
12) 'RETURN 

2290690 mS=Mn$tas 

22070 PRINT #2,a%5 

22030 GOTO 22010 

22980 REM S332 o eo eS inventory {acdc agdds 
23000 CLS #3 

23010 PRINT #3, "INVENTORY."5 

22020 PRINT #23, "---------- 

SS@30 PRINT #3:°PRINT #35 

23040 FOR n=1 Ta it 

220350 IF o€n)=13 THEN PRINT #3,0%¢1) 
235060 NEXT 

23970 RETURN 

25700 REM Fooee Fo eee? split <<4ceicdeds 
24000 v$e"" ingen" 

24010 FOR n=1 TO LENCm$) 

24020 IF MID$¢m$ ,n,id=" " THEN GOTO 2406 


1) 


Z2dO20 NEX 
2d0d0 v= 


Z2AdQ50 RET 


tT 
ms 
LIFIN 


i) 
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24060 v$=LEFTS(m$,n—-1) 
24070 n$=RIGHTS Cm, LENC mS) —r > 
249050 RETURN 


24950 FEM 33322335 > command fee ceedgd 
25000 GOSUBR 2200 
23010 GOSUB Z2dao® 


25020 CH=LEFTS(V$,2Z) 


25030 IF 


220d@ IF 
25050 IF 
25@60 IF 
25070 IF 


49000 
ZAQOEO 
Sao 
SIOFI® 


IF 


IF 


HEN GOSUB 


25100 
VAOTA0) 
25110 IF 
25120 IF 
ZoL3@ IF 
25140 IF 
2o1LS0 IF 
HEN GOSUB 


IF 


C$=" Po" 
C$="ST" 
C$=" Fo" 
C$="AF" 
C$="GE" 


C$="GC" 


CH="EX" 


C$="UN" 


Ct$="Cu" 
C$="CL" 
C$="KI" 
c$="LO" 
C$="SH" 
411000 


THEN GCISUIE 
THEN GUSLIE 
THEN GCISUIE 
THEN GIISUIE 
OR C#="TA" 


QF C$="EN" 


OF C$="IN" 


OF C$="CP" 
THEN GOSUE 
THEN GOSUE 
THEN GOTO 

THEN GOSUE 
Cr C$="FU" 


ZOOOD 
31900 
SZOOOD 
BSOO” 


THEN GOSLE 


THEN GOSUE 


OF C$="RE" 


THEN GCSUB 


SaOOD 


AQAODD 


4O500 
OF C$="RA" 


25160 CH=LEFTS(VS,3) 
25170 IF CH="GWA" GF 
42000 
25180 
42000 
25190 
23200 
25210 


C$="MOP" THEN GOSUE 


IF C$="MOV" CR C$="LIF" THEN GOSLIB 
IF V$="QUIT" THEN GOT 
IF v$=""" THEN GOTO 


PRINT #2,"1I don’t understand « . . 


AdIdaoo 


25220 


25220 GOSUE Z2OOO:GOSUER 23000 

25230 

ZEIZO Cee eeeees 
26000 GOSUB 27000 


26010 
26015 
26020 


GCOSUB 
GOUSUB 100@@ 


ZOOOO 


GOSUB =2100@ 
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26030 GOSUB 23000 

ZE@4dO po=e 

261900 RETURN 

26930 REM $3333 52 >> strings “<<condees 

27900 DIM w#( 36) 

27010 RESTORE 27@6@ 

27020 FOR n=1 TO 36 

279030 READ w$ Cr) 

27440 NEXT n 

27050 RETURN 

27060 DATA I AM ,ASTERN,FORARD ,PORT ,ST 

ARBOARD ,UP ,DOWN ,IN A ,SMALL ,LARGE 

27070 DATA "BUAT, ALGNGSIDE ",THERE IS , 

THE WIND ,HOWLS ,SINGS 

2708@ DATA SCILINDS LIKE LAUGHTER. ,GUTSIDE 
»sINSIDE ,IT IS ,THE MARIE CELESTE- 

27090 DATA A ,AND ,HERE-,AND I ,SLIDE ,A 

CROSS ,LOCKED ,UNLOCKED ,TO ,OF ,IS ,I S 

EE ,STORES. 

2719@@ DATA GAP ,THE ,WATER ON THE DECK. 

DEVIL,BERMUDA TRIANGLE,ATLANTIS 

27930 REM bobo o eRe describe «fede s 

23000 CLS #1 

23005 IF po=2 AND o0(€1@)2£512 THEN PRINT # 

2y"You slip through to the":PRINT #2, "ne 

xt deck section !"ipo=S:SOuUND 2,300,190,1 


ZSEQ@@7 IF po=i AND of(2)=@ THEN GOTO diaoe 
29010 FOR n=1 TO 7 

2SO20 PRINT #1, ,wSCdCpo nd g" "5 

239030 NEXT wn 

Za@d@ PRINT #1 

23050 PRINT #1 

23060 PRINT #1," I can see -" 

25070 FOR n=1 TO 11 

230 IF o€n>=po THEN PRINT #1,0%Crmd5", 


hh 


@ NEXT 
@ RETURN 
@ REM 3o32o E> begin game <“ccdcdide 
@®@ GOSUB 24000 
1®@ GUSUB 2aaoo 
2797020 GOTO 


LUO oo Oo 


Seooe 


ha Ba bd bo Bo 


2@ REM commands <<a e 


Na 
wt 
! 
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30000 vS=""" 

SO@O1Q@ IF m¢po,do22O0 THEN GOTO Ze@02z0 
S0@15 PEINT #2,"You cannot go that way." 
tHE TURN 

30020 IF mCpo,d)=1 THEN po=po-S: RETURN 
309030 a=m(po,d>ta=a-1LiIF o€ad=13 THEN PR 
INT #2,"You use the “so$Ca)tiPRINT #2, "an 
ad go to port." ELSE GOTO 30015 

SOOd0 FOR n=1 TO S@@@INEXT vn 

36039 po=po-S: RE TURN 

$1000 yv$=""" 

S1I@1I@ IF mepo, 2.220 THEN GOTC 31020 
S1@15 PRINT #2,"You cannot go that way." 
*RE TURN 

31920 IF m(€po,2)=1 THEN po=potSi Ke TURN 
31930 a=m(po,2)ta=a-1lLiIF o€ad=132 THEN PR 
INT #2,"You use the "so#Ca)iPRINT #2,"an 
d go to starboard." ELSE GOTO 31415 
S1i@d@ FOR n=l TO SQ@@OINEXT nh 

319050 po=potss RE TURN 

32000 vSen" 

S2010 IF m(po,1)22@ THEN GOTO 32020 
S2@15 PRINT #2,"You cannot go that way." 
TRE TURN 

B2@20 IF mCpo,1)=1 THEN po=pot+li RETURN 


32030 a=mCpo,l>ta=a-LilF o€ad=13 THEN PR 
INT #2,"You use the "so$CadiPRINT #2, "an 
do go to forard." ELSE GOTO 32015 

S20d0 FOR n=1 TO S@@OINEXT nn 

32050 po=potl: RETURN 

33000 vee" 

32010 IF m¢€po,3 2220 THEN GOTC Saa20 
23015 PRINT #2,"You cannot go that way." 
SRE TURN 

32020 IF m¢po,2)=1 THEN po=po-1t RETURN 
32030 a=mCpo,3)ta=a-1LilF o€ad=12 THEN PR 
INT #2,"You use the "so#Cad SPRINT #2, "an 
d go to aft." ELSE GOTO 323015 

S2O0d@ FOR n=1 TO S@@@:INEXT ni 

S3050 po=po-1li RETURN 

SdOOO vee" 

34010 FOR n=1 TO 10 

Sd020 IF n$=o$(n> THEN GOTO 24060 

3d030 NEXT n 
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Sd4@d@ PRINT #2,"Don’t ke silly !" 

3d050 RETURN 

34060 IF n=d THEN PRINT #2,"It’s tied to 
o tightly for me !" RETURN 

24070 a(nj)=13 

Sd030 PRINT #2,"You take the "so (rn) 
34090 RETURN 

S5QO0@ vga! 

S5@1@0 IF n$te"STORE" AND N$22"STORES" TH 
EN PRINT #2,"You cannot go there .« 2. .«"i 
RETURN 

35020 IF m€1@,4)=@ THEN PRINT #2,"It'’s 1 
ocked ! "RETURN 

SS2Q0S3@ po=tiskE TURN 

S6000 yout" 

36010 FOR n=1 TO 11 

36020 IF mn$=o8 (n> THEN GOTO 36060 

S6éQ@20 NEXT 

360d PRINT #2,"I don’t see that here." 
56050 RETURN 

36060 IF n=1 THEN PRINT #2,"It’s sharp ! 


S6070 IF n=2z THEN PRINT #2,"It’s green ! 


36080 IF n=S THEN PRINT #2,"It’s wet & s 
alty !" 

36090 IF n=d THEN PRINT #2,"It’s tied ti 
ghtly." 

S619@ IF n=S THEN PRINT #2,"It says ~"iP 
RINT #2,"’No need to go below":PRINT #2, 
"decks in this game-?" 

36110 IF n=6& AND 0¢(7)=@ THEN PRINT #2,"I 
t’s rattling !"to0C7)=po 

36120 IF n=& AND 0(7923@ THEN PRINT #2," 
It’s empty !" 

S6130 IF n=7 THEN PRINT #2,"It says *STO 
RE?" 

S6é1d@ IF m=& THEN PRINT #2,"It runs off 

with a dead rat-."to0CS)=o 

S615 IF n=9 THEN PRINT #2,"1It’s soggy ! 
S616@0 IF mw=1@ THEN PRINT #2,"The’re smel 
ly !" 

36170 IF N=1i1 THEN PRINT #2,"They seem t 
o ke for a rope !" 
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S6150 RETURN 
370900 ve=""" 


37@1@ IF pot si@ THEN PRINT #2,"I can’t - 
-" SRE TURN 

37020 IF o€7)4713 THEN PRINT #2,"I have 
no key !"IRETURN 

S720 mCpo,d=12°PREINT #2,"The store is o 

pen." 

S74@d@ dC1@,3)=28 5 RETURN 

SSOOO0 vS="""STF o€ 192513 THEN PRINT #2," 

With what $"P RETURN 

33010 IF n$=o%$C4d) THEN GOTO Seod@ 

SS3O20 PRINT #2,"You sadist !" 

S8030 RETURN 

SS@d@ PRINT #2,"You cut the rope and tak 

e it." 

SEOS5O0 a€d)=15 

S8060 RETURN 

SIOOO vS="""EIF n$teo$ Cd) THEN vé="BRI" IR 

ETURN 

29@10 IF o¢€dd¢3p0 AND o€d)2513 THEN PRIN 

T #2,"Where’s the ladder Y" I RETURN 

27020 PRINT #2,"You climb the rope ladde 


BIO3ZO@ IF po=& THEN po=7t0(d)=7: RETURN 
39040 IF po=7 THEN po=6:0¢(4)=6: RETURN 
29050 IF po=1 THEN po=Zto(d =Z2:tRETURN 


ionee PRINT #2," An Albatross flies down 
40010 PRINT #2,"and attacks you for " 
46020 PRINT #2,"hbeing destructive." 
40030 PRINT #2," You Are Dead ! " 

40040 FOR n=1 TO S000 

d@O350 NEXT 1 
44060 SOUND 1,3: 
4@@70 GOTO Ado ane 
403500 Veen" 
40310 PRINT #2°:PRINT #2,"EXITS ARE 5" 
40520 IF MCPO,1)22@ THEN PRINT #2, "FORAR 
D "3 

dOS30 IF MCPO,3)220 THEN PRINT #2,"AFT " 


q¢ 
2) 


3 
dOSd0 IF MCPO,2925@ THEN PRINT #2,"STARB 
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QARD "5 

dO@550 IF MCPO,d)<>@ THEN PRINT #2,"PORT- 
d@S6o IF m¢po,12=@ AND m(po,2)=@ AND mCP 
0,3)=0 AND m(po,d)=@ THEN PRINT #2, "NONE 


4d@570 PRINT #2 
40530 RETURN 
41900 v$=""" 
41010 PRINT #2," Not now Sailor 
41950 RETURN 
42000 vS=r" 
AZ@1IO IF o(6@)<2213 GR oC9)< 243 THEN PRINT 
#2,"With what you fool . . .«"FRETURN 
d2020 IF pos<>2 THEN PRINT #2,"Not here y 
ou idiot . .«"iRETURN 
42030 oC S)=@:PRINT #2, "Well done ! Now i 
t is safe-"im(Z, 3 )=5 
42040 dQZ, 1 =1Lid¢Z, 2)=Z2id¢e,S)=2O@8dc2Z,d) 
BRZIMAC2, 5S S=218°d CS, 69=11id¢2,7)=0 
20350 oCL11I)=2°RETURN . 
43000 yv$e=""" 
42010 FOR n=1 TO 10 
42020 IF n=o% Cn) THEN GOTO 4d35060 
43930 NEXT 1 
42040 PRINT #2,"Move what Y !' 7 " 
43050 RETURN 
42060 PRINT #2,"You move it,and the" 
43070 PRINT #2,"wind blows it away !" 
429280 o€ 1) = 
42070 RETLIRN 
dd@o® CLS #3:°CLS #2 
44910 PRINT #2,"Another Game ?" 
444020 GOSUER 2200 
449036 IF m$="YES" THEN FLIN 
ddod@ PRINT #2,"Well you’re playing anyw 
ay !" 
44050 FOR n=1 TO 250 
44060 NEXT n 
44070 RUN 
45000 CLS #1 
425010 PRINT #1,"SURPRISE !"iPRINT #1,"We 
hid in “gwéc2lo5" "“swScllos" "pwc 2a) 
45020 PRINT #1,"We thought You would" 
15030 PRINT #1,"NEVER solve the adventur 
et" 
2040 GOTO ddao@ 


to 


2 
Please Sir 


A Teaser for Everyone 


This program is not quite what it seems! You may think that you are 
able to guess what the secret of the program is as you enter it, but you 
will still find the game a challenge when you play it. 

The idea is that the on-screen ‘teacher’ selects a subject and you 
must then give examples which fit the subject. For example, if‘ Films’ 
was displayed then you might enter ‘Please sir, is SUPERMAN one?’ 
and teacher may say ‘yes’ or ‘no’! You must try to decide why and then 
enter another example such as ‘STAR WARS’ to which the reply will 
once again be ‘yes’ or ‘no’! The game continues until you achieve three 
‘yes’ replies in a row, when it is assumed that you have realised why 
some get a ‘yes’ and others ‘no’. You can cheat, but that most certainly 
would be a shallow victory. 

Later, when you have mastered playing the program, you may 
wish: to change the rules or add more subjects, and that may be a 
challenge in itself! 

Invite a friend to list the program, and he may be surprised to find 
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that there is a distinct lack of data, whereupon you may either give 
your own reason or offer the following test of gullability: 


‘The program uses an advanced text compacting system based 
upon the mathematical characteristics of letters within English 
words. Thus, careful selection of parameters enables specific target 
answers to be ‘tuned’ into apparently imprecise test routines.’ 


Of course, you will know differently, because you typed in the lines 
which verify the entries! Why then, is a correct answer for the ‘Birds’ 


category: Sparrow, Chaffinch and Swallow? 


1 FEM 
2 REM 
SOO S 


s10 5 
190@ 
10350 
114 
115 
1160 
19797280 
ZOOOD 
ZOO1O 
ZAOLD 
ZOOSBO 
24040 
ZAODA® 
ZAOAS 
LOOMED 
ZOOTO 
ZOORO 
ZOOIFOD 
ZO1LO®D 
20110 
ZOLE@ 
20130 
ZO1LA® 
20150 
ZOLE® 
20 

20170 
7z 


seceq please sir 


“> ISSI/JIM 


YMBOL 2d@,128%,64,32,24,6,15, 


VMBOL “Sai, 3435753) 127, 25515,1 


GOSUB d@lrO® 
yore 
GUSUB 2Ona® 
GOUSUBR 2ZEO0o 
GOTO 24daa@ 
REM 33335 
MODE @ 
PAPER @:PEN 1 


screen 


*BORIDER && 


WINDOW #1,13,19,2,9 
WINDOW #2,13,19,11,14 
WINDOW #3,13,19,16,22 


WINDOW #4,2,11, 


ld ,235 


WINDOW #5,2,11,21,22 


RESTORE 2@@oo 
Fok n=O TO 15 
READ atINE nya 
NEXT ni 

PAPER #1, 
PAPER #2,2:PEN 
PAPER #3,&:PEN 
PAPER #4,7:5PEN 
PAPER #5,97:PEN 


=PEN 


Co ha ce 


#1,4:CLS 
#2,3:CLS 
#3,1:CLS 
#d,d:CLS 
#5,4:CLS 


ee 


CLS 


#1 
#2 
#3 
#4 
#5 


LOCATE 6,12:PRINT CHRS¢C 2d) 


PLOT 156, 208:DRAW 40,203:DRAW 24,2 


DEAW 24,35@:DRAW dO, S72:DRAW 140,35 
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20180 DRAW 156,335@:DRAW 156,225 
201990 PLOT 35,350,13:DRAW 35, S7@2PLOT 65 
»sOIOIDEAW 65,230 
20200 PLOT 107, 350:DFAW 77,235@:DRAW 77,2 
S3O>DRAW 107,230 
20210 PLOT 150,350,1d: DRAW 120,3550:DRAW 
1290,270:DRAW 150,290 
29220 DRAW 150,220: DRAW 120,235@:PLOT 39, 
Z3IOIDRAW 61,236 
20230 PLOT SY,29@:DFAW 61,29@:PLOT 77,29 
0? DRAW 107,290 
20240 PLOT 107,250,152: DRAW 107,230 
20250 PLOT 135,3d5°DRAW 135,2552PLOT 135 
ZA@IDRAW 135,222 
20260 PLOT 35,232 :DRAW SS ,239 PLOT 39, 3c 
SIDRAW 63,232 
20270 PLOT 135,290,135 
202530 PEN FELOCATE 1,3: PRINT CHE ¢ 2415 


20290 PEN 1 

2O30@ LOCATE #1,1,3°PRINT #1,"GUESS A" 
2O310 LOCATE #2,2,1:PRINT #2, "TOTAL" 
Z2@S20 LOCATE #3,2,2:2PRINT #3, "GAMES" 
20330 LOCATE #3,3,¢d:PRINT #5590 

2OSd@ LOCATE #4,1,2:PRINT #4,"PLEASE SIF 
“SPRINT #4,"1S IT. a at 
20350 PLOT 270,210 

29360 DRAW 275,250:DRAW 25 
2O@370 DRAW 290,310: DRAW 25 
2 DRAW 260, 3d02: DRAW 
20390 DRAW S20,320:IDRAW 2 Z1@ 
20400 DRAW 230,205 :DFAW 220,300 
204190 DRAW 215,250: DRAW 220,252 
20420 DRAW 216,275:IDFAW 230,270 
ZOd30 DRAW 216, 265:IDRAW 220,260 
SQdd@ DFAW 216,256: DRAW 216,250 
20d50 DRAW 220,2d6:DRAW 260,245 
20460 PLOT 2d0,2d6:DRAW 230,210 
20470 TAG #7:°MOVE 220,312 

20474 PRINT #7,CHRS(24@) ; 

20475 MOVE 250,305 

20478 PRINT #7," 7" 5 = TAGOFF 
2Od8@ PLOT 225,308: DRAW 220,300 
20d55 GOSUBR 21300 

20490 RETURN 
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= 
oo 


S 
a ts | 


A nS SE SS) 
Ss 

Load a Oo & 

Seegeasd 


om 
iS 


21@ 
A636 
21030 
219050 

20® 
21d5@ 
21490 
21500 
21510 
21520 
21530 
21550 
217900 
21980 
2Z90O 
22010 
eenee 

BORO 
22040 
ZEOI@ 
22060 
$,1)) 
22070 
b,1>) 
22080 
22070 
2210@ 


DATA 6,24,2,15,1,90,15,16 
DATA 4,21,9,17 Tb -Gck 

REM 

REM * * * ‘YES? « *# * 

INK L3,2d:5INK ld,Sad:INk 15,6 
FOR n=S00 TO 10@ STEP -20@ 
SOUND Zyn,S@,12 

NEXT vr 

Win=wintl 

REE TUPFIN 

FEM 

FEM * * * INC? * * * 

INK 13,2¢:INEK 14,6:20TNE 15,24 
FOR n=200 TO 600 STEP Z2a@ 
SOUND 2,n,359,12,9,%,1 

NEXT 1 

win=@ 

RE TURN 

REM 3ooe >>> start game et¢ccece 
win=@2 yo=gorl 
s=INTCREND(1)*20)+1 

LOCATE #1,1,5:PRINT #1,s5s$¢s5) 
LOCATE #2,3,3:PRINT #2,tr 
a=t(s, 1) th=t¢s,2)2 c=t(s,3) 
DEF FN ok=ASCCLEFT#(at,1)) 
IF a== THEN DEF FN ok=ASCCRIGHT$Ca 


IF a= THEN DEF FN ok=ASCCMID$( ad, 
IF a=d THEN DEF FN ok=LENC a) 


IF a=S THEN DEF FN ok=sptb 
IF s=2 THEN DEF FN ok=ASCCLEFTS(RI 


GHT$Cat,Z),1)) 


Seen 


ZIS@ 
23000 
Z3BO1GO 
2Z502O 
235025 
Z3IG3O 
23Od0 


RE TURIN 

REM 333203323222 input sercniddde 
a$=""isp=@ 

CLS #5:PRINT #5,a% 

w$=INEEY$ 2 wS=LIPPERS Cw > 

IF w=" " THEN spesptiiGOTO 23060 
IF w$=CHR$(13) THEN GOTO 23130 

IF w$=CHE$¢(127) AND LENCat)>°@ THEN 


aS=LEFT$Cas,LENCat>—-1)!GOTO 23070 


ZIQ50 
@ 


23060 


IF w$<"A" OR w$2"Z" THEN GOTO 2302 


a¢t=at+w 


23079 
ae RS 2) 
231d 
25150 
23160 


ain iy tok 
SSL SO 


2373 
2d 000 
24005 
24019 
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SOUND 2,2@@,19,12:GOTO 23014 
a=LENCas) 

IF ati THEN GOTO 23000 

SCUND 1,400,350, 97:S0UIND 1,200,20,% 
re=FN ok 

FEE TURIN 

REM =: o 
GOSUB 22000 

IF at="GQUIT" THEN FUN 
IF re=c THEN GOSUB 214000 ELSE GO5SU 


a a a ae ee ae 


AUS Ta Ss ss, 


K 21500 


ZAGZO 
Zd930 
24250 
ZAIRO 
25000 
25010 
tu 
25020 


25020 


puzzle 


25100 


LOCATE #2,23,23:PRINT #2,win 

IF win=3 THEN GOTO 2500 

GUTO Sdaaa 

REM 33332332322 win feet dd es’ 
MIDE 1 

LOCATE 12,3:°PRINT "CONGRATULATIONS 


LOCATE 11,4:°PRINT STRING$(13,45)5 
LOCATE %,1@!PRINT "You solved the 


LOCATE S,223:PRINT "Press 7Y’® to pl 


ay aygain" 


25110 
25120 
251230 


at=INKEYS! aS=UPPERS (Cag) 
IF at="Y" THEN GOTO 1100 
GOTO 25L1ia@ 


S99SO REM ¥oPe PP PPPP subjects <<ddddede 
dO00® DATA DOG,ACTOR,STAR,TV PROG,FILM,P 
LAY , SCING 

40010 DATA MICRO, COLOUR, FLOWER, TREE,GEM, 


BOOK, SPURT, BEAST ,BRIFD,PLACE 


4OO2ZO 
40030 
dOO40 
A007 
AOO28® 
1OOF® 
AOE0® 
403510 
dOS20 
AOS530 
A050 
40550 
dO560 
4035790 
40580 
Aaa 


DATA FISH,NAME , CAR 


DATA 2,1,7391, 25325552579 5y1 52 
DATA 1,1,45,5,0,0,5,5,6,4,1,4 

DATA 4,1,4,2,1,80,4,1,3,2,1,63 
DATA 5. 2,4,3,3.67 344, @3,3,3,65 


Somtgwts 
DATA 2,1,352,3,2,65,3,2,65,4,1,6 
RESTORE daone 
DIM s#¢ 20) 
FOR n=1 TO 2@ 
READ s#(n) 
NEXT 1 
DIM t¢€2@,3) 
FOR n=1 TO 2® 
READ tcn,1>,t¢n,2),t¢n,3> 
NEXT 1 


Mmrvriieenl 


3 
i Accuse 


Seem Lebliaal Crm. i ta 


PRE. LOR = LOE LA, 
BRR Boe es AE WOK 
WELLIEG MELLIES PUPS rome 


‘a SOR B8den PERE” Pies 
He? BEE ST Pt" oe 7 
EE 2 eae]? COS | Sa 


& eyee Serene 
$ ROSE MAR 


A Suspicious Listing 


This is a test of deduction which will challenge all budding sleuths. 

You are Inspector Watkins of CID (Computer Investigations 
Department) and are presently undertaking an extensive training 
course. This training is designed to test your courage and endurance. 
The course also tests your intelligence and ability to use the computer 
in criminal detection. Since we cannot cover the courage and 
endurance section in this book, we have included the computer 
deduction test. 

The computer has the ability to generate thousands of different 
permutations from a set of data. Inthe blink of an eye it will decide on 
the criminal and his corroborative details, together with the 
statements of a witness that will conclusively point out the guilty 
party. You are allowed to ask for only six sets of details. This is done 
by entering the number corresponding to the category on the left of 
the screen. The computer will display them and then display the 
statements of key witnesses. This could be enough to identify the 
correct suspect, if you requested the right data! 


/Accuse 29 


The number of the suspect that you believe to be the criminal is 
entered and the accuracy of your judgement is reported back. 

This program could well have educational value, but most of all it 
is designed to be different and fun. 


1 REM <¢<ee<4 IT ACCUSE ISSI/JIM #23>3e2°% 
2 REM 

190 GOSUR 22000 

1290 GOSUR 29000 

150 GOSUBR 21000 

1400 FOR g=1 TO 6 

1610 GOSUB 23000 

16420 NEXT gy 

1629 CLS #2:PRINT #2,"You must now enter 


the number of the suspect you consid 
er to have commited the crime." 
1440 PRINT #2°PRINT #2," The witness § 


aid that «© «© .« . " 

16450 RESTORE 170@ 

16460 FUR n=1 Ta 10 

16470 READ as 

1680 IF widen OR wC2Zo=n OR wCS =n OF we 
d)=n THEN PRINT #2,"The criminal "jatsj5" 
"“ss$Cs yr) 

16490 NEXT n 

179@@ DATA was a,was,was,’s hair was,’s fh 
air was,wore a,’s shoes were,’s eyes wer 

e,’s nose was,had a 

1719 RESTORE 1720 

1720 FOR n=1 TA 12 

1730 READ a,beSOUND Z,a,hb,is 

174@ NEXT mn 

174d DATA 190,25 ,200,25,300,25,d00,25 
1746 DATA 200,25,300,25,4d00,25,500,25 
1748 DATA 300,25.400,25,500,25, 608,25 
1750 aS=INKEYS: IF ate"1" OR a$e"d" THEN 

GUTA 175@ 

1760 cr=VAL Cat? 

177@ SOUND 2,6@0,50,15:SQUND 2,400,50,15 
SOUND 2,2900,50,15 

1730 CLS #2 

1790 IF cr=s THEN GOTO 300@ 

Z20@@ PRINT #2,"You’re pathetic, *Inspect 
or’ Watkins - No ! I will demote you to 
P.C. Watkins! " 
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2010 PRINT #2:PRINT #2 

2020 PRINT #2,"It was suspect number 
yur 

2050 GOTO 3050 

3000 PRINT #2," Congratulations, Inspect 
or Watkins !" 

2010 PRINT #2°PRINT #2,"You correctly de 
duced the true criminal from the clues gy 
iven-" 

S@5@ LOCATE &,25:PRINT "Press any Key to 
Repeat Game" 

3060 CALL &BROS 

3@7@ aS=INKEYS:2IF ag="" THEN GOTO 2070 
3030 SOUND 2,1490,50,15 

3990 GOTO 1200 

1VIEO REM Fee eee ERS creensitdad cans 
20000 INK @,@:INK 1,2@:INE 2,6:INK 3,26 

20010 BORDER @:PAPER @:PEN 1:MOQDE 1 
20020 WINDOW #1,190,d0,3,12 

20030 WINDOW #2,1,4d0,15,24 

2004@ PAPER #1,@:PEN #1,1°CLS #1 

200350 PAPER #2,@:PEN #2,3:°CLS #2 

20060 PEN Zino=1 

29@7@ FOR n=12 TO 36 STEP & 

20030 LOCATE myliPRINT no 

20090 ro=notl 

20100 NEXT 

20110 RESTORE 20100 

20120 FOR n=3 TO 12 

20130 LOCATE 1,1 

201d@ READ at:PRINT at 

2015@ NEXT wn 

20160 DATA @-SEX,1-BUILD,2-HEIGHT ,3-HAIF 
54-77 COL, S-ATTIRE ,6-SHOES, 7-EYES,S—-NOSE, 
F-SPECIAL 

20170 PRINT #2,"Choose your question (@- 
Py wa el 

Z2O@500 RETURN 

20950 REM $oPRSP SPP eset upix<cecdddgdcce 
21000 RANDOMIZE TIME 

2190190 s=INTCEND(1)*4)+1 

21020 FOR n=1 TO d 

21922 wn =a 

21924 check=0 

SL1@25 a=INTCRND(1)*10)+1 


" 


53 


ZLOA® 
2132 
21903d 
2Z1@SS 
21037 
Z1L@A® 
21050 
21960 
21079 
Z1LOEO 
21970 
Z114®@ 
ZL1@S 
150 

Z1L11® 
220 

Z1L1L2® 
Z1L1S@ 
21160 
21170 
21130 
ZLLI® 
ZL2O® 
Z1LZ1i® 
ZLZ2O 
ZL220 
Z1izd@ 
2LZ5@ 
212460 
21270 
2LEEO 
21290 
21300 
Z1S1® 
21320 
ZLSI® 
21S3d0 
21500 
Z21iS519 
21520 
SLA30 
215d 
21550 
2LS60 


21570 
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FOR q=1 To 4 
IF wCq)=a THEN check=1 


NEXT 

IF check=1 THEN GOTa 21924 
wr )=a 

NEXT wn 

FOR mn=1 To 10 

FOR q=1 To 4 
a=INTCRND(1)>*4)+1 

s$Cq snd=1l$Crn,ad 

NEXT 

NEXT 1 


newC1>:GOSUB 21150in=wC2Z)'GOSUB 21 
n=wCS)'GOSUB Z115@in=wCd) sGOSUB 21 


RE TURIN 

RANDOMIZE TIME? a=INTCRND¢(1)*4d)+1 
s$Cs n=l Cn,ad 

test+2sIF ted THEN t=t-d 
s$Ct yn =1lECn,ad 

IF a?i THEN b=a-1 ELSE h=d 
t=t-251F t<i THEN t=tt+d 
Ss$Ct yn =1$ Cn hd 

t=t-Z221IF tei THEN t=tt+a 

Ss$C tn oHlECrn, bh) 

RE TURN 

FRANDCIMIZE TIME: a=INTCRND¢1)>*4)+1 
s$C5 jm =H=LECrn,ad 

IF s¢1 THEN t=s-1 ELSE t=d 

s$Ct no=1lS$Cn,ad 

IF ated THEN b=ati ELSE b=1 
t=t-1:IF t=@ THEN t=ad 
s$Ct yn =Hls¢n,b) 

t=t-1:IF t=@ THEN t=d 

s$Ct nI=1E¢n,h) 

RE TURN 

DATA MAN, BOY ,WOMAN, GIRL 

DATA FAT,THIN,SLIM,STUBRY 

DATA TALL,LARGE , SHORT ,STOCPED 
DATA NORMAL ,SHORT,CURLY,LONG 
DATA BROWN, BLACK, BLONDE ,GINGER 
DATA JEANS ,SUIT, JACKET, CLOAK 
DATA PUMPS, BOOTS,SANDLES,WELLIES 
DATA BLUE, BROWN, GREEN,HAZEL 
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215&8@ DATA SMALL,LARGE , BROKEN, CROGEED 
2159@ DATA TATOU,FRECKLE ,DAGGEF , GUN 
21600 RETURN 

Z1I9VSO REM 33o>>>>>?initializectccdseees 


22000 DIM s#(4,10) 

22019 DIM wed) 

22020 DIM 1%¢10,4) 

22050 RANDOMIZE TIME 

22060 RESTORE 2150 

22070 FOR n=1 TO 10 

22030 FOR m=1 TO 4 

22090 READ 1$¢(n,m) 

22100 NEXT m 

22110 NEXT n 

22150 RETURN 

229350 REM sequestionsecedand cans 
23000 at=INKEYS: aS=LIPPERS (as) 

23010 IF ati"@" CR age"9" THEN GOTO 2300 


1) 

23920 qw=VAL Cas) 

22030 qw=quwtl 

Zz fa SOUND 2, 690-qwei@® 25,15 
25040 FOR pe=1 TO 4 

25050 LOCATE #1,pe*xs-7,4W 
23060 PRINT #1,5%Cpe,qw); 
25070 NEXT pe 

23200 RETURN 


4. 
Star Trek 


EMERG Y SECTOR 
SHEELYD , OMCs 


YH SOR 


The Program that Goes Boldly On 


There have been versions of Star Trek written for just about every 
computer ever made. This says a lot for its attraction as a game and 
makes this the classic game. 

Now you can turn your Amstrad into a Federation Star Ship 
complete with scanners and phasers. Your mission is to clear the 
quadrant of the evil Klingons, without using up all your energy or 
being vaporised. 

This version incorporates a zooming star field and ‘real time’ 
action during encounters with the enemy or when docking with star 
bases. 

There follows an extract from the 32,544 page mega-manual 
entitled: ‘How to be Captain of a Star Ship in 4000 easy lessons’: 


1. Keep calm. Remember the most you can lose is: your own life, 
20 billion Galactic Dollars worth of hardware and the lives of 
everyone in the known universe. 

2. Watch where you are going! Use the ship’s eyes to reveal the 
nature of the universe. Pressing ‘L’ for Long Range Scan (LRS) will 
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display the position of your ship and the whereabouts of the enemy. 
Klingons are represented on the LRS bya circle with an arrow. This 
is the ancient symbol of Mars, the war bringer. 

Star bases are represented by a circle above a cross. This is the 
ancient symbol for Venus, the bringer of love. 

Those sectors which are occupied by both enemy and star bases 
have a square symbol in them. The square is an ancient symbol fora 
square. 

3. See what you can do? Pressing ‘S’ will activate the short range 
scanners. This indicates the total number of enemy and star bases in 
the present sector. 

4. Keep an eye on your energy. Docking with a star base will give 
you more. To dock press ‘D’ on your control panel. If there is a star 
base in that sector the docking sequence then requires you to steer 
your ship using left and right controls until the star base rests in the 
centre of your screen. Once docked you will receive 20 extra units to 
the overall ship’s energy bank and a special 20 unit boost to your 
phasers and shields. Maximum capacity is 95 units. Failure to dock 
could result in the loss of the base. So be careful out there! 

5. Zap em’, Cap’n! A Star Fleet Captain has to do what he has to 
do, and that means eliminating the evil menacing Klingons. 

If there are Klingons around, hitting the ‘B’ key sounds Battle 
Stations and you can start zapping. First get your enemy in the centre 
of the screen using the cursor pad or joystick. When you are ready, 
stab the copy key or fire button, sending phaser bolts out to destroy 
the target. 

If you are not successful quickly you will lose the element of 
surprise and they will start to shoot back, thus draining your shield 
power. Do not give in, keep zapping until the last one is cleared from 
the sector. Then move on to win more battles. 

6. Warp carefully. Movement to any sector is achieved by pressing 
‘W’ followed bya number between I| and 5. This is equal to the warp 
factor or distance you wish to travel. 

Next the warp direction is required. This is a number between | 
and 8. Each number corresponds to a point on a compass, starting 
with one at the top and counting clockwise. Note: clocks have been 
retained in stardate 2806 to help Captains steer their Star Ships. 

7. The semi-final frontier. On commencement of mission you can 
select the level. The easy level has only 10 enemies to seek and destroy. 
The average level has 20 and the hard level has 30. 

As each level is completed, news of your success reaches Central 
Klingon Control and a replacement force, increased by 10 each time, 


is sent out 
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to do further battle. The ultimate challenge consists of 200 


adversaries to wipe out. Are you ready Captain? Then let 


programm 


ing commence ... 


1 REM <eeedceds star trek ISSI 22322 >>s 


z FRE 
=1@@) 


M 
SYMBOL 24,7, 98,242,254, 242,95,7,9 


6400 DIM s¢C15,2) 


610 

620 

6510 

14@@O@ 
1919 
1420 
1030 
ZAaAd®” 
ZO1® 
ZOZD 
ZO3® 
2040 
ZOR@ 
ZOSO 
ZOWD 
SOOO 
2O1@ 
44000 
dole 
IOaz2a 
d@z0 
1040 
4O5@ 
40460 
TOO 
E98@ 
700M 
7@19 
7@15 
7O2O 
7925 
TOS 
7OR3 
7O4@ 
7ads 
7TOR® 
7OAS 


MEMORY 39995 
addr=39999:GOSUB 29250@ 
PRINT CHR C239 5; CHRS C1 5 

GOSUB 21000 

GNSUEB 220a@ 

GOSUE 2aadea 

GTC daea 

at=INEKEY$!? a$f=LIPPERS( at) 

IF at="L" THEN GOSUB Z22a0@ 

IF a#$="S" THEN GOSUB 2d@oo 

IF at="W" THEN GOSUB 2500 

IF at="D" THEN GOSUB 26000 

IF a$="K" THEN GOSUEB 2790® 

FOR n=1 TO S3@2NEXT vn 

GOSUEB 114@@ 

IF ag=""" THEN GOTO 2O0® 

IF dead=1 OF eners1 THEN GOTO 79a@® 
LOCATE 7,21:°PRINT ener 

LOCATE 7,223:PRINT shie 

LOCATE 7,25:PRINT phas 

LOCATE 17,21°PRINT sec 

LOCATE 17,23:PRINT enem 

LOCATE 17,25:PRINT s¢sec,2) 

IF enem=alien THEN GOTO 10000 

GOTC 2aae@ 

REM ; BRR 

PAPER 1:PEN 2:CLS 
PRINT " Bad Luck !" 
PRINT 

PRINT " THE" 
PRINT 

PRINT "Starship Enterprise” 
PRINT 

PRINT " has keen destroyed" 
PRINT 

PRINT "hy the Klingons, but" 
PRINT 


36 Sensational Games for the Amstrad 


7960 PRINT " Admiral Sugar has" 
7965 PRINT 

7@7@ PRINT "decided to give you" 
7075 PRINT 

793 PRINT “ just 1 more chance" 
7@325 PRINT 

7490 PRINT "if you want to get " 
70935 PRINT 

719® PRINT " your vengeance ! 
7119 LOCATE 2,25:PRINT "Any Fey To Play" 
7120 a$=INKEYS 

7130 IF a$="" THEN GOTO 7120 

7id@ GOTO 14@o 

9930 REM 3333222 Ree next tec ge nnd 
19@0@ PAPER 1:2PEN 3:CLS 

1901 PRINT " Well Done," 

10@20 PRINT:PRINT " Captain Kirk." 
19@30 PRINT: PRINT " Now you must fight" 
10040 PRINT:PRINT "“ a fiercer group of" 
19@5@ PRINT:PRINT " KLINGCINS. .« «© « -" 
10060 alien=alient+1@ 

1@@7@ LOCATE 3,25:PRINT "Any Key To Play 
19980 at=INKEYS 

190970 IF ag="" THEN GOTO 10@R@ 

1@10@ GOTO 1010 
19980 REM FoR Reo EE: 
119@@® INK clr,z 
1191@ clr=clr+i:IF clr=i13 THEN clr=o 
11920 INK clr,2é 

11930 RETURN 

19920 REM 3253333337 screen t2caccecded 
29090 MODE @:SPEED INE 19,14 

20O20 INK @,@:INK 1,2:°INE 2,3:5 INE 3,24 
20030 INK d,3:INK id,2,2d:INkK 15,24,6 
2@O35 WINDOW #1,1,290,1,2 

20040 WINDOW #2,2,13,23,19 

2Q0035@ WINDOW #3,15,19,5,11 

20060 WINDOW #4,15,19,123,19 

20070 BORDER @:PAPER @:PEN 4:CLS 

20050 PAPER #1,4:°PEN #1,1°CLS #1 

20090 PAPER #2,1:°:PEN #1,23°CLS #2 

2910@ PAPER #3,2:PEN #3,3:°CLS #3 

2@11@ PAPER #4,2°:PEN #4,3:CL5 #4 

2012 LOCATE 16,d:PRINT "LFS" 


ZO1L3a 
2O1d@ 
20150 
29160 
20170 
29180 
ZOLI® 
ZOZ1O 
ZO2ZIO 
LAZOOD 
ZOBAD 
ZOSZO 
20330 
2035dA0 
ZOSIO 
2O3E0 
ZO37O 
2OBEO 
ZO3I0 
ZOA10 
Z2OA20 
2OABO 
2OddO 


2O0d50 
20460 
290A70 


LOCATE "SES" 


PEN 3 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
PEN 4 
PRINT CHEE (C259 5 CHES C@) 5 
col=S 

FOR n=1 TO 12 

PLOT 2O064+n¥16,250, col 
PLOT 228-n*#16,220,col 
PLOT 222 ,220+n*1i2,col 
PLOT 222,2d0-n*12,col 


16,12:PRINT 


1,21:PRINT 
1,23:PRINT 
1,25:PRINT 
11,21:PRINT 
11,23:PRINT 
11,25:PRINT 


“SHIEL 


"ENERG 
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D:" 


"PHASCR  " 
"SECTOR: " 
"ENEMY: " 
"*—BASE =" 


PLOT 
PLOT 
PLOT 
PLOT 


Z2064n¥16, 220+n*#12,c01 
2064n#16,2dO@-n*¥12,col 
228-n¥16,220+n#e1LS, col 
238—-n#16,2d0-n*12,col 


INK 13,2 
PLOT d@,110, 
PLOT d@o,119, 


SI: DRAW 200, 


SIDFAW 250 


220 


220 


9 


col=colt+1i:IF col=i3 THEN col=5 


NEXT 1 
PEN #2,3 
LOCATE #2,5,12:PRINT #2, 


CHR (15539 > CHR SC 12559 sCHRS CLA) 5 


ZOAF0 
ZOBO® 
290510 
ZOIEa 
21000 
Z1Q01@ 
21020 
Z21LO30 
210d 
21050 
21060 
21760 
22000 
22010 
XT 1 


2202 


clr=s 

PRINT CHES C23) 5; CHRS (C1) 5 
RETURN 

REM 333332332 difficulty 
PAPER @:PEN 1:MODE 1 
PRINT "Hard/Easy/Average 
a$=INKEY$? a$=UPPERS ( ad) 


CHES C147) 5 


IF a$="H" 
IF ag="E" 
IF at="A" 
GOTO 21ez0 
REM >3>2>> 
RANDCIMIZE 
FOR n=1 TO 


FOR n=1 TO 


THEN alien=2@!RETURN 
THEN alien=190:RETURN 
THEN alien=15:RETURN 


oof 


a rd 
as 


BP initialize 
TIME 
1Sisdn,1)=@is¢n,2)=@2NE 


alien 
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22030 sec=INTCRNDC1)*15)+1 

220d@ IF s€sec,1)33 THEN GOTO 22030 
22050 s(sec,l)=s(sec,1i)+1 

22060 NEXT n 

22070 FOR n=1 TO 3 

22080 po=INTCRND(1)>*#15)+1 

22090 IF s€po,2)=1 THEN GOTO 220R@ 
22100 sCpo,2=1 

22110 NEXT wn 

22120 phas=Z25tener=2oihad=Oishie=25 
22120 sec=INTCRND(1)*15)+1 

22140 enem=0 

22200 RETURN 

22930 REM 3335232 oS Lads 
23000 SOUND 2,200,253 

23010 FOR n=1 TO S 
22020 FOR m=1 TO 3 

239030 LOCATE #2,m,n*2°PEN #3,3 

223040 IF po=sec THEN PEN #3,15:PRINT #2, 
CHR (240) 2GOTA 22070 

23045 IF sCpo,1)2@ AND s(Cpo,2)=1 THEN PE 
N #3,4:°PRINT #3,CHR$(232):GOTO 22070 
23050 IF sC€po,l)7@ THEN PRINT #3,CHRES (22 
4):°GOTA 22070 

23055 PEN #3,14 

Z2206@ IF sCpo,2Z)=1 THEN PRINT #3, CHES (C235 
a) 

239070 po=potl 

23050 NEXT m 

2309@ NEXT 

23100 FOR n=1 TO 7a@@INEXT 

ZSido® CLS #3 

25150 SOUND 2,200,25,15 

22190 ener=ener—-6& 

23200 RETURN 

2S7EO0 REM ooo eee short scan eet 
24000 SOUND 2,150,25,15 

24005 PEN #4,15 

24910 LOCATE #4,2,3:PRINT #4,CHRS (22d) 55 
Csec,l)> 

24015 PEN #d,1id4 

24020 LOCATE #4,2,5:PRINT #4,CHRS (235955 
(sec,2) 

24030 FOR n=1 TO 7S@@2NEXT vi 

244040 CLS #4 


24050 
24090 
2419 
ZAIEO 
25000 
25001 
25020 
25930 
30, 5@ 
25040 
25050 
25960 
25070 


ZaIQIO 


77 77 
at 5 iD y 


SIOFO 
20100 
25114 
25120 
25130 
25150 
Za 160 
25170 
23180 


22190 


yt me 
2525) 


252608 
25270 
252790 
25300 
ZoSa® 
2c) 
E5600 
22610 
ALERT 
25620 
25650 
25660 
2567@ 
ZI6E@ 
2567990 
25700 
ZS IR 
ZE00O 
ZE@1IO 
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SQUND 2,150,25,15 

ener=ener—-3 

RETURN 

REM 3333222 warp <fdeddd des 
CLS #1:PEN #1,3 

PRINT #1,"WAFRP FACTOR (1-5) 2" 


39 


a$=INKEY$:IF ag="" THEN GOTO =S5oz0 
IF a$<"1" GR a$?"S" THEN SCLIND 2,5 


1S2GOTM SAa@1a 

dis=VAL Ca) 

CLS #1 

PRINT #1, "WARP DIRECTION 7" 


a$=INEEY$:IF ag=""" THEN GOTO 25070 


IF a@iv"i" OF age"S" THEN SCILIND 2 
15:GOTO 25068 

dir=VAL Cas) 

RESTORE 25500 

FOR n=1 TO dir 

FREAD xy 

NEXT rr 

FOR n=l TO dis 

sec=sectny 

IF sect 1 THEN sec=sect15 

IF sec#iS THEN sec=sec-15 

SOUND 2, 7S5%#n,25,15 

NEXT v1 

IF s¢€sec,1)2@ THEN GOSUEBR 25460 
CLS #1 

ener=ener-INTCdis*1.5) 

FE TUFIN 

DATA 
REM 33322 R RE: 
PEN #1,15 


3 


r 
aN 


a$="FED ALERT ! .RED ALERT ! -RED 


oye 
X=INTCRND(1)*300)+100:dis=1 
FOR n=1 TO 25 
as=RIGHT$ (as, 39) +LEFT$ (as, 1) 
LOCATE #1,1,1:PRINT #1,a% 
SCUND 2,10@-n*2,1,15 

NEXT n 

RETURN 


a a ce ard 


REM 3333332332 docking <<<<¢idcde 
CLS #1:°PEN #1,3 


IF s¢€sec,2)=@ THEN PRINT #1,"No St 
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arbase . .«."SOUND 2,300,225, 15:RE TURN 
26020 x=INTCRND(1)9*20@0)4+75idis=1 

26030 y=h50:TAG 

260d@ PLOT @,@,1 

26050 MOVE eye PRINT CHES (C2355 3 

269060 GOSUBR 2E00a 

260970 MOVE x,y?PRINT CHRS( 235) 3 

ZEQ080 IF 7 THEN dis=dis~1 

26090 IF le=1 THEN dis=dis+l1 

26100 y=y~-Lix=x+dis 

261902 IF ~<3@ THEN x=30idis=disti 

Z6E10d IF x338O0 THEN x=Se@idis=dis-1] 
26110 IF y=200 THEN GOTO 26150 

26120 GOTO 26050 

26150 TAGOUFFZPEN 4 

ZEL6@ IF xi160 OF x2270@ THEN PRINT #1,'"M 
ISSED ! !":SOUND 1,40@,25,15°RE TURN 
26170 IF x219@ AND xizZd@® THEN GOTO 26200 
26130 PRINT #1,"STARBASE DESTROYED": SULIN 
D 1,500,50,15,0,90,21 

261685 FOR n=S TO LS:INE mn, StNexT 

26190 FOR n=S TO L2:INkK n,6étNext 

2619S sCsec, 2) =O: RETURN 

26200 PRINT #1, "DOCKING .« . « ." 

26210 ener=enert+ZQ@:IF eners35 THEN ener= 


i he 
26215 phas=phast+2@:1F phas?9o THEN phas= 
gS 
26220 shie=shiet+Z@:IF shiesd?5 THEN shie= 
9 


ZEEZ3O@ SQUND 1,300,25,15:SOUND 1,200,25,1 
S:ISOUND 1,100,25,15 

Z62d0 FOR n=1 TC 2@@@:NEXT niCLS #1 
Z6250 RETURN 

Z69EO REM ¥>>PO REP PY battle <cecdeecede 
27000 FOR n=200 TO S@ STEP-1:SOUND 1,n,1 
,1SNEXT ni 

27910 dead=o 

Z7030 PEN #1,3 

27040 IF s(sec,1)=@ THEN TAGCIFFICLS #1:P 
RINT #1," SECTOR CLEAR.":RETURN 

27050 x=INTCRND(1)*200)+75 

27060 y=INTCRND(1)*100)+100 

27070 TAG?PLOT @,0,1 

2710@ TAGIMOVE x,yiPRINT CHRS(235) ; 
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27114 GOUSLUIB 2Za@oo 

27120 IF fi=1 AND phas?@ THEN GOTO 27200 
2713@ MOVE x,ytPRINT CHES CESS) 5 

27132 TAGOFF 

2713S IF kil=1 THEN scCsec,1l)=s¢sec,1)>-1: 
kil=@:GOTO 27010 
271id@ IF le=1 AND » 
27150 IF ri=1 AND x THEN xd=xd~1 
27160 IF do=1 AND ye 350 THEN yd=yd+l 
27170 IF we=t AND y?11@ THEN yd=yd~1 
27160 IF ex=1 THEN RETURN 

27200 K=xK+xdSTF x50 THEN x=30ixd=—-xd 
27210 IF x2360 THEN x=S60%xd=-xd 

27229 y=ytydiITF ys26@ THEN y=360 

27230 IF ytl2@ THEN y=120!yd=-yd 

27235 RANDOMIZE TIME 

27240 IF RND(1)*#@-95 THEN GOTO 27270 
27250 INK 1,3:SQUND 1,400,20,15,0,0,31 
27260 shie=shie-1:IF shie=-1 THEN dead=1 
*RE TURN 

27265 FOR m=1 TO S@tNEXT mtINk 1,2 
27270 LUCATE 7,23:PRINT shies 

27230 LOCATE 7,25°PRINT phas 3 

27290 LOCATE 17,23:PRINT enem; 

27450 GOTO 2710 

27490 REM * * * fire * * * 

27500 INE 13,6 

27510 FOR n=100 TO S@ STEP-1:SOUND Z,n,1 
yLSENEXT vn 

27520 INK 13,2 

2725390 phas=phas-1l 

27Sd@ IF ye2d@ AND y?200 AND xizad@ AND 
22@@ THEN enem=ernemt1likil=1:SOUND 2,300, 
IO,15,90,9,15 

27600 GOTO 27130 

27980 REM 32353033? key/star <aecddddde 
25000 GOSUB 27000 

25010 GOSUB 1190 

23030 RETURN 


sor 
2 
ro 


@ THEN xd=xd+1 


Now 'MERGE* the *INEEYS® routine. - + 


5 
Rainbow Breakout 


An Arcade Classic 


This second program classic has great attraction for players of all 
ages. It is one of the shorter programs in the book and so may be a 
good first attempt for those new to programming. 

At the start you are asked to select a large or small bat, then the 
game begins. The object of the game is to eliminate all the blocks by 
hitting them with the ball. Your bat is moved left or right using the 
cursor pad or joystick. It must be moved in advance to anticipate the 
path of the ball as it bounces back from the blocks. 

If you lose a ball then there are three supplied before the game 
restarts. The score is shown and can reach very high levels in the 
hands of a skilful player. 

This game can be merged with the ‘High Score’ routine to provide a 
competitive game for more than one player or for a solo player to 
trace his hopefully improving play. 
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1 REM <<tdeedecs rainbow ISSI 2532222 ob? 
2 REM 

49@ RANDOMIZE TIME 

200 SYMBOL 2dO@, S55, 195 165,155, 153,165,1 
WS, 255 

S19 SYMBOL 241,255 255 255, 22d 22d ,22d,2 
24,464 

=2@ SYMBOL 2d2, 255, 255, 255, ,0,90,0,0, 
2209 SYMBOL #dS, 255,255,255 ,7,7,7,7 ye 
a2 MEMORY Sd995 

360 addr=34d999:GOSUB 297500 

=a27@ loca=S5029:GOSUB ZO50a 

190®@ sc=@:1i=5 
1@1@ MODE 1 
1920 INPUT "Small/Large T",a% 

1030 s$="""Slim=19 

1940 IF a$="1" OR a$="L" THEN s$=CHRES¢2 
429+CHRS (242): 1lim=17 

1050 GOSUB 20000 

196490 count=a 

1190 x=1 

1110 GOSUB 21100 

1200 b=Zad 

1210 RANDOMIZE TIME 

1220 IF FEND¢(1)?@.5 THEN c=1 ELSE c= 
1230 c=c+CINTCRND¢C1)#140)+5) 

1250 bd=-Liad=-1 

1500 GOSUB 21@a@a 

152 GOSUR 22000 

155@ IF count?s1S@ THEN GOTO 1054 
20@@ GOTC 1500 


199SO REM 33P>R REESE screen <Keeeeeeede 
20000 RESTORE 20a5o 


20010 FOR n=0 TO 15 
20020 READ w 

20030 INE rmyw 

200d@ NEXT 


20050 DATA 0,24,15,26,20,4,6,15 
20060 DATA 24,12,2,5,8,6,15,2 
20070 PAPER @:BURDER Z:MCIDE © 


20075 RESTORE 20210 
200380 FOR n=1 TO 20 
2907970 READ col 
20100 FOR m=1 TO 14 
20110 LOCATE nym 
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2@120 PEN col 

2@130 PRINT CHES$(C24d@) 5 

2@14d@ col=col+i 

20150 NEXT m 

ZOLE® NEXT vn 

20200 RETURN 

20219 DATA 2,4,4, 5,5, 5,5 ,6,6,6,6,6,6,5,5 
gtgtgd,d,3 

20930 REM 335333222 movement <ic4ccede’ 
21000 GOSUB 279000 

21@1@ IF le=1 AND x21 THEN GOSUR 21lda@ix 
=x-Z2:GOSUB 2110 

21920 IF ri=il AND x<lim THEN GUSUB Z1do@ 
Px=x+2IGOSUB 211400 

21620 RETURN 

219090 REM * * * draw * * * 

2110@ PEN 1 

2L11L11@ LOCATE x,2Z25:PRINT CHES (241) 55% 5 CHE 
$C HAS); 

Z2Liiz®@ RETURN 

Z2L3S9O FEM * * * rub * * * 

21d@@ LOCATE x,2Z5:3PRINT " a 

21d20 IF s#<o"" THEN PRINT " we 

21IdEaO RETURN 

2LI68QO FEM 33532 >>> draw ball «4eeedede 
21700 PEN 2 

217190 LOCATE c,ybiPFRINT CHRS¢ 202) ; 

21720 RETURN : 

Z1I79O REM ooo oo Eee ruth ball <eendddes 
21300 LOCATE c,khetPRINT " "5 

Z21iS10 RETURN 

2L9SO REM 333332 move ball «eect 
22000 GOSUB 215@@2al=cthi=h 

22Q@10 al=altad:ibi=bithd 

22020 IF al=@ THEN al=liad=1:SOUIND 2,A0, 
1,15 

22030 IF al=Z21 THEN al=2@!tad=-1:S0UND <2, 
990,1,15 

229040 IF bi=@ THEN bhi=1 

220350 IF bl=25 THEN GOTO 22500 

22060 LOCATE al, b1itGOSUR Faooo 

22970 IF ch=24d@ THEN PRINT " "5 :SOUND 2, 
10@,2,152scH=sct1@ihd=—bdi count=counttl 
22075 IF bi=1i THEN bd=1:2°SOUND 2,50,1,15 
229030 c=ctadib=btha 
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22090 GOSUB 21700 
22100 RETURN 
2E50O LOCATE c,25:GNSUBR 3000o 


cone IF ch=32 THEN GOTO 24600@ 

22 S20 hbd=-1 

SES5ZO IF RBNDC1970.-5 THEN c=ct+1l 
225d0 SOUND 2,75,1,15 

22550 RETURN 

ZEIS@ REM 3oeoo EPP dead enced’ 
26000 GOSUB 214d0@:1i=1i-1 

26010 SOUND 2,300,75,15 

26020 IF lit@ THEN GOTO 110 

ZE1O0O MODE ® 

26110 PEN 1 

26120 PRINT " CONGRATULATICNS ’ ! !" 
26130 PRINT 

261d@ PRINT "You scored ¢: " 

26150 PRINT 

26160 PRINT sc3" points !" 

26500 LOCATE 1,24¢:2:PRINT "Another game 
CY/N)" 

S6510 at=INKEY$: as=UPPERS (ag) 
26520 IF at="Y" THEN GOTO 1000 
26530 GOTO 2651 


Now "MERGE? the ’INKEYS’ and the 


CHAR CHECK’? routines. « - 


6 
Maze Maniac 


A Game with Perspective 


This third classic is a 3D maze game in which you have a perspective 
view of the paths open to you. 

The object of the game is to find your way around the maze 
guickly. If you do it fast enough then you will catch the maniac. If you 
are too slow then he will catch you! 

On screen are shown the passages that are open to you. The arrow 
at the bottom indicates the true direction that yoware facing and how 
far you have travelled towards the exit at bottom right. 

The left or right cursor changes the direction you are facing. The up 
cursor takes one step into the picture each time it is pressed. The 
down cursor takes you back one step and leaves you facing the same 
direction. The joystick can also be used to move. 

Once you are successful in reaching the end of the maze then the 
target time is reduced and the best time must be beaten. 

This game uses a sophisticated technique, based upon the 
Amstrad’s colour pointers, to achieve the very fast changes to the 
picture. The technique is worthy of your close examination since you 
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can use it to produce high speed movement in your own programs. 
If the program is merged with the ‘High Score’ routine then many 
players may race against each other’s best time. 


1 REM <<< maze maniac <* ISSI/JIM 
2 FEM 
500 SYMBOL AFTER 225 


JOO high=99 


1@0® 
1020 
1920 
19460 
165 
1970 
1080 
1490 


GAUSUB 2daao 

GOSUE 220aa 
poFliview=ditarg=high- 
LOCATE 9,22:°:PRINT "MAZE" 
LOCATE &,2d° PRINT "MANIAC" 


GUSUB 2O@@@o:GOSUB ZZa00 
GOSUB 27@@@:GOSUR 2Aaao 
start=TIME 


119@ GOSUBR 22000 

1150 GOSUB 27000 

116440 GOSUER 23a@a@ 

1170 IF won=1 THEN GOTO 32000 

118® won=® 

120 GOTO 1100 

9930 REM > ee: 

19900 SYMBOL 

19@10 SYMBOL 

&,6@ 

140420 SYMBOL 230,0,@,8,S2,1i2d,56,258,1d 
10030 SYMBOL 231,112,121,127,63,31,7,1,1 
19@d4d@ SYMBOL 232,609,255, 255,255, 231,215, 
255,213 

19930 SYMBOL 223,14, 159, 25d 252,245,224, 
ize ,12c 

10060 SYMBOL 23d, 1,353,135, 15,21 ,62,62,62 
19@70 SYMBOL 235,171,213, 235,215,235, 255 
760,50 


10@3@ SYMECIL 
,124, 124 


19990 SYMBOL 
7 
19100 SYMBECL 


19110 SYMBOL 
254,156 

10120 PEN 15: 
19135 LOCATE 
29) 3 CHR C230) 


29,192,240 ,2d0, 245,252 


227,350, 15,15,5,59,127,127,5 


23S,0,0,0,0, 129,195,195, 129 
237, 120,240 2dQ0, 192,220, 25d 


INK 15,13 


S,1@2PRINT CHES (225) > CHES C2 
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191d@ LOCATE &,11:2PRINT CHR (C221) 5CHRSC2 
32) 3 CHR ¢ 233) 
1915@ LOCATE S,12:PRINT CHR$ (234) s;CHRSC2 
35) > CHR# (236) 
19164 LUCATE SG ,13:PRINT CHRE$(C237) sCHRSC2 
35) 5 CHR ¢ 239) 
1@170@ PEN i 
19200 RETURN 

+5 7 ; *> anitialise screen #24 
2OOOO BORDER @:PAPER @:MOMDE @ 
2Q00d4@ INE @,3:PEN 13 
20@5@ PLOT @,76,12:DRAW 
20060 PLOT ©,72,12!:= DRAW 
20070 PLOT @,2,13°DRAW 62 
20080 PLOT @,6,13° DRAW 
290970 PLOT 155,@:DRAW 1 
2@10®@ PLOT 15@,@:DRAW 1S¢ 
2@11@ PLOT S12,0:DRAW S12, 
2O120 PLOT S20,0:DRAW 320,75 
2O130 GNSUB 219000 
ZO1d@ PLOT @,S0,9:DFAW 2d@,2OO:DRAW Zdo, 
27s,i5 
2O1SO0 PLOT 639,50,@:DRAW S95,200:2DRAW 39 
B,273,15 
2O@16@ PLOT 160,160,1d:°DFAW 160,318 
ZO@L7@ PLOT 4A758,16@,14:° DRAW 475,218 
2@1580 PLOT G@,12@,13:°DFAW 80,358 
20190 PLOT SSS,120,13°DRAW SS8, 355 
2O20@ LOCATE 1,22°:PRINT "Goal" 
20210 LOCATE 1,24: PRINT targ 
2O215 PRINT CHR C22) > CHES C1) 5 
2O220 LOCATE 15,22:PRINT "Hi" 
29230 LOCATE 17,24°PRINT high 
29240 PRINT CHE$ (22) 5 CHRE(@) 3 
20270 RETURN 
Z2Q@980 REM 3ebe>e>S> draw walls ¢<eec¢ae 
21000 FOR n=50 TO 115 STEP 2 
21@10 PLOT @,n,13:°DRAW 635 ,n 
214020 PLOT @,250+n,13°DRAW 635, 250+n 
Zi@S@ NEXT wn 
214@d® FOR n=120 TO 156 STEP 2 
Z21@S0 PLOT S@,n,14°DRAW SSS,n 
21060 PLOT S30,2@@+n,1d° DRAW S55, 200+n 
21970 NEXT wn 
21980 FOR n=16@ TO 195 STEP 2 


rete) 
NON 
hoon 


I~wje 


mm hm pb hie w 
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21090 PLOT 16@,n,15:DFAW 478,1 
2110@ PLOT 160,120+n,15:DRAW 478,120+n 
#1110 NEXT n 

21120 FOR n=20@ TO 278 STEP 2 

Z1130 PLOT 2d@,n,@:DRAW S98,n 

211d4@ NEXT n 

2115@ FOR n=0 TO 73 STEP 4 
21160 PLOT n,1Z@,1@:DRAW n, 358 
21170 PLOT 639-n,120,7:DRAW 639-n, 358 
Z118@ NEXT rs 

21190 FOR n=O TO 158 STEP 4 

Z1iZO@ PLOT n,16@,11:DRAW 1,315 

21210 PLOT 639-n,160,S:DRAW 639-n, 313 
21220 NEXT ni 

21230 FOR n=160 TO 23 STEP 4 

Z1iZd@ PLOT n,200,12:DRAW n,278 

Z1Z25@ PLOT 639-1,200,9:DRAW 629-1, 278 
21260 NEXT ni 

21270 FOR n=36@ TO S98 STEP 2 

Z128@ PLOT 74,360,1:DRAW O,n 

21290 PLOT 78,118,1:DRAW @,n—230 
Zi30@ PLOT 560,360,d:DRAW 635,n 

2131@ PLOT 560,118,d:DRAW 638,n—-230 
#1320 NEXT n 

21330 FOR n=320 TO 358 

#13d@ PLOT 15&,320,2:DRAW SO,n 

2135@ PLOT 158,158,2:DRAW 3a@,1n—Z00 
Z1360 PLOT da0,320,5:DRAW SSS, ni 

21370 PLOT d480,153,S5:DRAW S5a,n-Z00 
ZABEO NEXT v1 


21390 FOR n=28@ TO 31s STEP 2 
Z1d0@ PLOT 239, 280,3:DFAW 160,n 
Z1d10 PLOT 238,1998,3:DRAW 160,n—-120 
21d2@ PLOT 400,280,6:DRAW 47¢,n 
21430 PLOT 400,195,6:DRAW 473,n—-120 


Zldd@ NEXT n 

21d50 RETLIFIN 

219350 REM 333>>>>> colour data <<4<¢¢e" 
22000 DIM 1¢14,9) 

220190 RESTORE 22000 

22020 FOR n=1 TO 1d 

22030 FUR m=1 To 9 

22040 READ atl (n,m>=a 

22050 NEXT m 

22060 NEXT vn 
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22070 RETURN 
22030 DATA &é 329,11,2 
22090 DATA &,6,2 yoy e2QO,11,2 


22100 DATA 6,20,11,2 

22110 DATA 6,11,2,6,3,3,20,11,2 
22120 DATA 20,6,6,3,6,6,29,11,2 
22130 DATA 20,6,2,3,6,5,20,11,2 


221d0 DATA 20,11,6,6,3,6,20,11,2 
22150 DATA 20,11,2,3,6 be arte 
22160 DATA 6,6,3,6,6,3,20,11, 
22170 DATA old gh yb shy by 20,1153 
22150 DATA 20,6,3,23,6é 


2217970 DATA 

22200 DATA gos yt 

22210 DATA 20,3,3,5,3555,29,5,5 

22980 REM 33333 >> choose colours 28004 

23000 FOR n=1i1 Ta S 

23010 INK nyl¢vlyn> 

23020 NEXT 

235030 FOR n=d TO Y 

2R0d@ INE mté,1l¢vl yr) 

23050 NEXT nn 

22060 FOR n=1 TA & 

23070 INK nt+3,1l¢vr,n) 

Za@aO NEXT vn 

22110 RETURN 

23980 REM 2 oo! 

2400 DIM mCS5) 

2d010 GOSUB ZRaa® 

21020 addr=Z2d997:GOSUB SISO 

24250 RETURN 

24920 REM bebo oO>D> maze data ¢ii¢dcedd 

25000 RESTORE 23000 

Z5Q@10 FOR n=1 TO SS 

25030 READ aim(n>=a 

25050 NEXT 
S070 RETURN 

23100 DATA 4 

25110 DATA 14 

25120 DATA &,°% 

25130 DATA 12,6,1° 

Z51ld@ DATA 10, 

25-9750 REM Sereceree 

ZEOOO x=mCpo) 

26010 no=@!i:so=Otea=O:we=a 


faa 


o> variables @4ccecce 
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SEOZE x= THEN no=1lix=x- 
26030 IF xz=d THEN so=lix=x 
260d IF x>=2 THEN ea=Lix=x- 
S464@050 IF xe=1 THEN we=lix=x- 


r 
| 
mh) fe on 


Z6930 REM 333 RSPR? check view te#edcads 
27000 GOS SADA 

27440 vl=lLivr=lia=l1isa=po 

27050 FOR q=2 Ta @ STEP —1 

27055 ok=qedisprtlF satok<1 OR satokeSon T 
HEN GOTO 271460 

27960 po=satok 

2790740 GOSUBR 2E000 

27075 d=O:1l=O:ryr=@ 

27930 IF view=1 THEN d=we:l=soir=no 
279090 IF view=2 THEN d=no:l=wetr=ea 
271900 IF view=3% THEN d=eail=notr=so 
27110 IF view=4 THEN d=so:l=eair=we 
27120 IF d=@ THEN GOSUB 2750® 

27130 IF 1=1 THEN vl=vlta 

271d@ IF r=1 THEN vre=vrt+a 

27150 a=axke 

27160 NEXT 4 

Z2717@ po sa 

271580 RETURN 

27430 REM 3322 RRP EER XYZ faded s 
27500 vl=13ia=1 

273510 IF q=2 THEN vl=1 

27520 IF gq=1 THEN vl=% 

27530 vr=vl 

275d0 RETURN 

27930 REM 2oeoSS ES move position tieded 
25@1@ IF le=1 THEN view=view-1:GOSUE 320 
ao 

ZEOzZ20 IF ri=i THEN view=viewt1:GOSUR 320 
aa 

ZE@d@ IF do=il THEN view=view-1:GOSUEB 32® 
@O@iview=view-1:GOSUB S2000:GNSUB 2S500 
239050 IF up=1 THEN GOSUB Saha 

28060 IF do=1 THEN view=view-1:GOSUB S320 
OO iview=view-1:GUSUBR B200M 

28090 IF po=Sad THEN WON=1 

25110 FETURN 

2S5O0O IF view=1 AND we=@ THEN GOTO 2a 700 
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S851 IF view=2 AND no=® THEN GOTO 25900 
23520 IF view=3S AND ea=@ THEN GOTO 28900 
28520 IF view=4d AND so=@ THEN GOTO 25700 


Z2E8d@ GOSUBR Zaaoo 

235550 IF potdispess OF potdispel THEN Go 
To 2S700 

2E56@ po=potdisp rGOSUR 22000 

23570 RETURN 

BORDER i 

SOUND 2,2400,25,15 

FOR z=1 TO 25 

NEXT =z 

BORDER © 

FE TURN 

REM $3325 >>7> movement “ifidiecde 
IF view=1 THEN dispe- 

Z0@1@ IF view=2 THEN disp=-11 

300290 IF view=3 THEN cispHl 

3@@30 IF view=d THEN disp=11 

200d0@ RETURN 

209760 REM 33352332 O RE arrow “fecdidedd as 
31000 sym=2d1 

S1@1@ IF view=@ THEN view=4 

21020 IF view=S THEN view=1 

S1@3@ IF view=1 THEN sym=Zd2 

2144d@ IF view=2 THEN sym=2d0 

Z1@5@ IF view=3 THEN sym=2d3 

31070 PRINT CHES (sym) 5 

Si@i@ RETURN 

SLI9VSO REM $3552 oP PEED map Cede dds 
32000 FOR n=21 TO 25 
32@10 LOCATE 6&,n 
32020 PRINT SPCC11)!:PRINT 
32030 NEXT mr 

32040 yp=INTCpo/il> 

S2030 xpHepo-Cli*xypo 

32060 IF xp=@ THEN xp=lliypeyp-l 
32070 PRINT CHES C23) sCHES (C1) 5 
S2030 LOCATE xpti,yptel 

32090 GOSUE 31¢0@ 

32100 PRINT CHR C23) 5CHRS(@) 3; 
22110 RETURN 


S2Q010 
S3920 


S203 


IG 


eke) 
32060 
ot yo 
32070 
S247 


S300 


33510 


Now 
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FEM 23322 P PSE P EP out Aided as 
fin=TIME-start 

sc=INTCfin/S5O@) 

IF sce=high THEN high=sc 

won=@rCLS 

PRINTS PRINT "Your Time Was 3"55¢ 
PRINT:IF scetarg THEN PRINT "You yg 
ur Goal !" 

GOSUBR 14000 

LOCATE 3,2#d:PRINT "Now Try Again «+ 


FOR z=1 TC! S@@@:INEXT = 
GOTO 105 


‘MERGE? the °INEEYS’ routine. « + 


7 
Duo Draughts 


cBRaucers, 


<< BREE 


Computer Moderated Micro Draughts 


The idea is very simple — you must get rid of all your opponent's 
pieces, by jumping over them. To jump overa piece there has to be an 
empty space on the other side. 

At the start you can only move in one direction, that is up the 
board if you are White or down if you are Black. To move a piece the 
letter for its column and the number for the row is entered. Next the 
destination square is given in the same way. 

If it is not possible to jump over a piece then any one of your own 
draughts is advanced by one square to another square of the same 
colour. If a piece reaches the other side then it becomes a ‘king’ or 
‘crowner’. This means that it can move up and down the board and so 
is more powerful. 

The fact that you have to take a piece when possible does not apply 
according to some sets of rules. Some authorities require that should 
an opponent’s piece not be taken when possible, then the offender 
loses that piece. This is known as ‘huffing’. 

In this micro version the program will not accept an instruction 
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which simply moves a piece when there isa jump move available. The 
indicator will continue to show the same colour player until the jump 
sequence is complete. 

A game can be saved to tape at any stage by pressing [shift] S. A 
previously saved game is loaded at any time by [shift] L. During a 
game or after loading, the step mode can be selected by pressing 
[shift] 3. Pressing ‘Space’ will then step through from the beginning. 
Pressing [ shift] 3 will end step mode and allow the game to be played 
on from that position. 


"ROARD CORE? 


L99RO REM PoP PEPE EP screen <ceedencee 
20010 PAPER @:PEN 1:BORDER @:MODE 1 
20020 WINDCIW #1,2,25, 1,24 

20030 PAPER #1,3:PEN #1,2:CLS #1 

SS PAPER: #2,2 

20040 TAG #2 

20070 1$=STRING$(3, 145) 

20030 11$=STRINGS(3,32) 

ZOOID nS=1S+LISF+ISF+1L1$F+1$4+11$4+1$4114 
20100 FOR n=l TO 4 

20110 FOR m=1 TO 3 

20120 PRINT #1,1%3 

Z@130 NEXT m 

201d FOR m=1 TO & 
ZO15@ PRINT #1, RIGHTS (n$,21)+LEFTS(n$, 3) 


§ 
20160 NEXT m 
20170 NEXT 1 
20200 FOR n=z TO 25 STEP 3 
20210 LOCATE i,n 
'O2Z20 1$=HEX$(C26—-n9/3,1) 
PRINT 1%; 
20240 LOCATE nt+1,25 
20250 PRINT CHRSCEd+(rt19/3593 
20260 NEXT 11 
20270 WINDOW #3,27,39,2,15 
20280 PAPER #5,3:PEN #3,1:CLS #3 
23980 REM >>> >> capt eceeeeeeees 
24000 LOCATE #3,5,d4:1F play=1 THEN PRINT 
#3, "WHITE" ELSE PRINT #3, "BLACK" 
Zd4@1@ LOCATE #3,14, ot #5," 
24020 LOCATE #3,10,9:PRINT #3, " 
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24030 LOCATE #3,19,6 

244040 GOSUB 24500 

2d0350 fFH$=nh 

24060 LOCATE #3,10,9 

24070 GOSUB 2450 

24080 st=n$ 

241400 RETURN 

SO9S@ REM 23> RPP P EEE save tte ddede 
="FF" 

3191@ g$=""ISOUND 2,200,20,15:SOUND 2,19 
@,40,15 

31020 FOR n=1 To 8 

31@30 FOR m=1 TO & 

310350 NEXT m 

S1@60 NEXT 1 

31065 he=""sigs"" 

21070 FOF n=1 TA 14® 

31430 Hh$=h$t+z$(n,1) 

S1OSS is=is+z$(n,2) 

31990 NEXT n 

31100 Hh$=h$+STRSC count > 

31120 PRINT #97, 9% 

SLil3@ PRINT #9,h% 

211d PRINT #97,1% 

31150 CLOSEQUT 

B116@ SOUND 2,200,20,15:SQLIND 2,100,d0,1 


5 


S1i200 RETURN 
Siveo REM 32° os load ae ele 
32000 g$=""ISOUND 2, 200,20,15:SOUND 2,20 
@,40,15 

S2@15 LINE INPUT #9,9% 

32020 LINE INPUT #9,h% 

S2025 LINE INPUT #9,14% 

32030 CLOSEIN 


S2035 FOR n=1 TO & 
S20d0 FOR m=1 TO & 


32070 NEXT m 

32030 NEXT vn 

32090 FOR n=1 TO 10@ 

22100 z$C(n,1=LEFTSC(hS,2) 
32110 H$=RIGHTSCHS,LENCHS)—2) 
S2120 z2$(n,2)=LEFTS(i$, 2) 
SZ1Z25 is=RIGHT$(is,LENCi$)—-2) 
32130 NEXT n 
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BE1d@ count=VAL CHS) 


BELS@ SOUND 2,2@0,20,15:SOQUND 2,200,d@,1 
i 
<t 


SZ160 GOSUB 2aaao 
32170 GOSUB 2rOae@ 
SELSO@ LOCATE #2,10,6 
22200 RETURN, 


‘Board core’ should now be saved separately to be used also in Chess 
Duel. The listing which follows completes the draughts 57 program. 


1 FEM #2eeec¢ draughts £°> ISSI +333>%> 
= FEM 

2“@ SPEED WRITE 1 

19@® GOSUER Z1aa®@ 

101 FOR n=1 TO 100 

19020 z$(n,1>="  " 

1030 z$(n,2Z)=" os 

1440 NEXT wn 

114® GOSUB 2OOOO:GOSUB 2200H 

1150 PRINT CHR#(C23) sCHR$¢(19;2:GOSUR 22000 
1160 count=1 

1200 GOTO 17@® 

16400 gam=@ 

1610 FOR n=1 TO S&S 

16420 FOR m=1 TO & 

16420 IF m$Cn,mo="B" OF m$¢n,m>="D" THEN 
gam=1 

16440 NEXT m:NEXT vn 

1460 IF gam=@ THEN GOTO 100a@0 

1670 gam=@ 

1430 FOR n=1 To 
169790 FOR m=1 TC 
1700 IF mé¢Cn,mo="4" OF m$Cn,ymo="C" THEN 
gam= 1 

171 NEXT m:NEXT nn 

1730 IF gam=@ THEN GOTO 1190@ 

1750 RETURN 

170®@ GOSUB 29000 

2000 GOTO 190® 

9930 REM 333553 >3> Black win tfcedeced 
1000 CLS 

19@1@ LOCATE 15,1@:PRINT "BLACK won." 
19650 GOTO 11450 

10980 REM 3332202 white win <<<<4<c¢< 


oo 
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1140® 
11910 
119050 


CLS 
LOCATE 15,1@:PRINT "WHITE won." 
SOUND 2, 300,25: SOLIND 2, 200,25: S0UN 


D 2,100,25 


11960 
eplay 
11970 
11@5@ 
@® 

11990 
t 1 os a 
202 102) 
202300 
29310 
ZORZO 
ZOO 
ZOWIO 
21900 
2191 
21020 
Z1O2@ 
210d 


IGN GN Ne 
a ee aed 
gras 
co oo N 
ON 


hs 
rrr) 
Ss 


22010 
22020 
22030 
Z2Z0dA0 
Z2O50 
22060 
22070 
22080 
22090 


LOCATE S,2d=PRINT "Do You Want A RF 
CY/N) 7" 

a$=INKEYS$ 2 a$=LIPPERS$ Cag) 

IF a$="Y" THEN GOSUB 3500@0:GOTO 11 


IF at="N" THEN GOTO RLIN 

GOTO 11060 

INE @,@?tINK 1,26:INKE 2 ,1id:INk 3,2 
PRINT #3," DRALIGHTS." 

PRINT #35," eereee-ss>=" 

LOCATE #3,2,6:PRINT #2,"FROM :-" 

LOCATE #3,2,7:PRINT #2,"70 :— 
FE TLIF:N 

REM +oeoooR> initialize {decd 

DIM m#¢5,3) 

DIM z#¢100,=) 

SYMBOL 240,04 195 a, Sl eh tain nea 

SYMEML 241,09, a.a,¢ 240, 25d: Wy 207 
SYMBOL Sa2 188,175, 1 174,170, 172,15, 


SYMBOL 2d3,61,227,31,255,25d,240,0 


SYMBOL 2dd,@ 


s1,9, 87,99, 118,125,255 
SYMBOL 2dia,a,1 


5 

Sh, 1dd,23d,195,110,5 
SYMBOL 246,191,175,170,170,122,15, 
SYMBOL 247,125, 227,351, 255,254,240, 


FE TLFIN 

REM 3D >>> game start eidcdadad 
FoF n=1 TO Ss 

FoF m=1 TO 
mé$Crgm>=" " 

NEXT m 

NEXT 

FOR n=i1 TO & STEP &@ 
m$CiLyntid="A" 
m$C2Z,n ="A" 
m$CS nti ="A" 

M$CS n=" BR" 
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22100 m$C7,n+1)="B" 
22110 m$C6,n)="B" 
2ELZE@ NEXT n 

2219 RETURN 

ZERO REM 
2IOOD x ty 
2AOL® FoR n= 


P26 2 2 eo Se 
Se Sy Sa Me 


390 

Ta ¢ 
23020 FOR m=1 TO 
ZSO3O cH$=m$Cn, mM)? c$=WIPPERS CCH) 


1 


ma oo 


25@40 IF c#=" " THEN GOTO 22100 

ZSQ50 IF c#="A" THEN col=3 ELSE col=2 
23070 PLOT ®,@,col 

23080 MOVE x,y 

23090 GOSUB 2 S500 

2214@ PLOT @,0,® 

25110 ~=e +d 

2SLiz@ NEXT m 

2B1d®@ “w=25iy=y-de 

23150 NEXT nt RETURN 

23490 REM * * * piece * * * 

23500 AS=CHES (2d0)9+CHR$ (241) 

23550 IF c#=]="C" OR c$="D" THEN dAS=CHRS C2 
dd )+CHRS (2d) Pd 1 S=CHRS (2469+ CHR (247) the 
ff=O 

235400 PRINT #2,d%3 

BE61@ MOVE x,y-1é 

2E620 PRINT #2,01%3 

23750 RETURN 

24500 noe" 

24510 at=INEEV$ 

24520 IF ag="CG1" THEN FLIN 

24520 IF at="S" THEN GOSUE 31000 

24526 IF a$="L" THEN GOSUB 32000 

Sd525 IF atg="#" AND count?#1 THEN z#C coun 
t, 1 ="FF"IGOSUB ZSaa@ 

24550 at=LIPPER$ (at) 

Z2d5d0 IF a$<"A" OR a$="H" THEN GOTO 2451 
@ 

24550 n$=a$iSOUND Z,15Q0,5,15:PRINT #3,% 


j 
24560 ag=INKEYS 

24570 IF a$i"1" OR a$>"9" THEN GOTO 2456 
rm) 
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2d58O n$=n$+asi SOUND F,150,5, 
yA 5 
20590 RETURN 


PRINT #3 


a a Le a ae a a ed 


24980 REM 3337222 move eekicd cds 


2200 GOSUB 246000 

25090 ro=silico=s:GOSUR 2E20@ 
25100 m$(s1,s5)=mt(f1,f) 

25110 IF si=1 AND m#(1,5)="B" 
Ss .="D" thuf t=O 

25120 IF si=& AND m#(S,5)="A" 
SI="C"ihuff=O 

25125 SOUND 2,200,735 ,15 

25130 ro=silico=s:GUSUB =520@ 

251235 SOUND 2,140,10,15 

251d0 ro=filtco=fiIGOSUR SA20@ 

25150 m$Cf1l,f>=" " 

25160 RETURN 

Z5200 “EZ y=SdO 


25210 FOR n=1 TO & 
FoF m=1 Ta & 


25200 xn=x+dS 
S3250 NEXT m 
25260 Keo y=y-ds 
25270 NEXT 
25250 RETURN 
25300 cH#=m$Cnm,m) 
25310 IF c#=" " THEN FRETUFN 


THEN m#¢1, 


THEN m#(&, 


IF n=ro AND m=co THEN GOSUB Sa20@0 


ESS320O IF c#="A" OR c#="C" THEN col=3 ELS 


E col=2 

25340 PLOT @,@,col:MUVE x,y 
2SE5S5O GOSUB 2=ZSaa 

25360 RETURN 

S59S0 REM 2oe eR EERE convert 
2E00O0 FEASCCLEFTS(fFH,19) 
2EQ010 FH=Ff-Ecd 

26020 FLI=VALCRIGHTS$(F$, 19> 
26030 f1=9-fl 

2E0A0 s=ASCCLEFT#(5$,19) 
ZEORO s=s-6g 

ZE060 sl=VALCRIGHT#(s$,1)) 
ZEO7O® sil=9-sl 

26030 RETURN 


ZEOIO REM 2oerP E> convert hack 


26100 r$=CHE$(col+é6d) 
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Pe ee 


oe cel am cet) 

27007 IF play=2 THEN p="A" tpi g="c" 
27010 FOR y=1 To 
27620 FOR x=1 TO 
27030 IF huff=1 THEN GUT 27060 

27040 IF méCy,xde>p% AND m$Cy,x<2pis TH 
EN GOTO 27060 


cn 


27050 GOSUB Zao 

27060 NEXT 

27070 NEXT y 

27075 check=1 

279080 cH=m$(f1l,f> i dé=m$(sl,s5> 

27090 IF c#=" " THEN RETURN 

27100 IF ¢cH="A" OR c$="C") AND play=1 T 
HEN FE TLIFEN 

27110 IF ¢c#="B" CR c#="D"9 AND play=2 T 
HEN RETURN 

27120 IF Agito" " THEN RETURN 

27130 IF c#="A" AND sisfi THEN RETURN 
271d®@ IF c#="B" AND s12f1 THEN FETUFN 
271350 xd=s—-fiyd=s1-fl 

2716 IF SGN¢Cxdd>*¥Cxd92=1 AND SGN¢Cydd¥*¢Cyd) 
=1 THEN GOTO 27490 

27179 IF SGNCxd>¥xde SSGNCyd>*yd THEN RET 
IRN 

27180 x$=m$Cfil+Cyd/2),f+Cxd/e)) 

27190 ITF ¢(x$="A" OR x$="C") AND play=2 T 
HEN RE TUFN 

27200 IF (x$="BR" OR x$="D") AND play=1 T 
HEN RETURN 

27210 IF x$=" " THEN FETURN 

27220 ro=fltCyd/2)ico=f+Cxd/2)'GOSUR 252 
@a® 

27230 lin=fil+cyd/2)icol=f+Cxd/e) 
27240 m$Clin,col»=" " 

27250 GUSUR 26100 

27260 z$Ccount,l1o=rGizsCcount,2)=rg$ 
27279 count=count+1:GOoTO 27500 
27490 IF huff=1 THEN RETURN 

Z275@@ check=@:% RETURN 

27980 REM 3322S : 
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28000 GOUSUR Zd000thuff=o 
28005 LOCATE #3,1,11:PRINT #3,SPCC12) 
2801 GOSUR 27000 


238020 IF check=® THEN GOTO 25050 
29030 LUCATE #3,1,11°PRINT #3," INVALID M 


22@d@ SOUND 2, 30@,5@,15:G0TO 2800@ 
2EO50 GOSUER 2Aae@ 

SSQ60 z$Ccount, 1 =f$iz$C count, 2)=sH 
28070 count=count+lilF count=1@1 THEN co 
unt=1 

SSQ75 IF huff=@ THEN GOTO 2a1@e@ 

250350 y=slix=s:GOSUR 22000 

25090 IF huff=i1 THEN GOTO Sadao 

23100 huf f=@2RE TURN 

ZEIRO REM 2oeee2> both players *“<2ee04 
29900 play=1 

29010 GOSUB 25000 

27020 GOSUB 160 

2I@30 play=2 

270d GOSUB SSoao 

29050 GOSUB 1600 

29060 RETURN 

S14dO gt=qs+ms n,m) 

31110 OPENGUT "!DRALIGHTS" 

32010 CPENIN "!DREALIGHTS" 

320350 m$Cm,m =LEFTSC 9H, 1) 

32060 gt=RIGHTS( g$,LENC g$)-1)> 

S278Q@ REM 2>>5>2 ooo REP huff tidied dds 
23000 hut f=@ 

33010 h1iS="A" Eh2g="C" 

S3@20 IF play=Z THEN hit="B"iheg="D" 
33030 IF yes OR méCy,xd="A" THEN GOTO 33 
OBO 

S30d@ IF x2 THEN GOTC S206 

32050 IF Cm$Cy-1,x-1)=h1$s OR m$Cy-1,x-1) 
Hh2$) AND m$Cy-Z,x-2)=" " THEN huff=1 
S2@6@ IF x2& THEN GOTO 22080 

S3070 IF (m$Cy-1,xtid=hit OR m$Cy-1,xt+1) 
=h2$) AND m#Cy-Z2,xt29=" " THEN huff=1 
S3@80 IF yre OF méCy,xo="B" THEN GOTO 33 
130 

33090 IF x3 THEN GUTO 331194 

33100 IF (m#Cyti,x-1L>=h1it OR méCy+1,x-1) 
=h26) AND m$CytZ,x-Z9=" " THEN huff=1 


34110 
SG re 2) 
Hh) 
S313 
SQ 
Aad1a00 
Sd01® 
Sd O20 
SdA030 
Sd0d@ 
34050 
2d O60 
24070 
SA O20 
SA090 
CVE" 
Sd10® 
24119 
34120 
54130 
unit=i 
S41d0 
34150 
S416 
SAd950 
SaQOae 
SAO 1@ 
SaO2@ 
SD 5Q 
S20d@ 
(2) 
SIOA® 
35068 
SBOE 
S27 
SEOI@ 
SIDI 
SI1L0® 
So110 
Qa 
SoL20 
S130 


a 9 br 
SaLAa 


S31d0 
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IF x2G@ THEN GOTO 33130 

IF (m#Cyti,xtio=Hhis GE mScyt+i,xtl)d 
AND m$Cyt+2,x+2)9=" " THEN huff f=1 

FE TLIRIN 

REM 323 >E>E> go again “ieecdcdcds 
LOCATE #3,19,6:PRINT #3,5% 

f= 

LOCATE #3,190,9:2PRINT #3," u 
LOCATE #3,19,% 

GOSUB 24500 

st=n$ 

LOCATE #3,1,11:°PREINT #3,SPCC12) 
GOSUB 24000:GONSUBR 27075 

IF check=® THEN GOTO 34110 

LOCATE #3,1,11°PRINT #3,"INVALID M 


SOUND 2,300,350, ,15:GOTO Sdo2zo 
GOUSUB 2Eao0o 

Z$Ccount, L.=F$te$C count, 29=ss 
count=count+lilF count=191 THEN co 


yesiix=se GOSUR BAaO@ 

IF huff=1 THEN GOTO 2da0a 
huff=O:GOTO B2ais@ 

REM 333>>>23 o> replay ¢iidedcddae 
count=@iplay=1 

GOSUB 22O0e@ 

GOSUR 2ZOOoOOo:GOSUR 2ROoe 
count=count+l 

IF z$Ccount,19="FF" THEN GOTO S550 


f$=z2$C count, 1) iss=z$C count, 2) 
GOSUB 260@@@:GNSUB ZSaae@ 


count=countt+l 

at=INEEYS 

IF at=""" THEN GOTO S5@80 

flay=2 

IF at="#" THEN GOTO SS500 

IF z#Ccount,19="FF" THEN GOTO 3550 


F$=zEC count, 1 isH=zH$C count, =) 
GOSUR 2649@@:GOSUB 25a0a 

IF f#=s% THEN GOTO Saa30 
a$=INEEYS 
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S515@ IF a$=""" THEN GOTO Sa1ldo 


S515 play=1 
SS160 IF at="#" THEN GOTO 35500 


35170 GOTO 35030 
S5500 IF play=1 THEN GOTO 27000 
S510 GOTO 29030 


Now *MERGE’? the *BOARD CORE? routine. 


8 
Chess Duel 


Computer Moderated Micro Chess 


It will come as a surprise to many that before the age of chess 
computers and the microcomputer program, the game of chess was 
originally played by two human beings. 

An intelligent chess playing program would take up an entire book 
on it’s own, so it was decided to develop a program which would be of 
genuine use to anyone who enjoyed playing chess or would like to 
learn more about it. Chess clubs could also find the program helpful. 

The program can be used simply asa replacement fora chess board 
and pieces. The two players enter their moves in usual standard chess 
notation. However, extra features have been included to produce 
worthwhile advantages over the traditional board and pieces. 

The computer will examine all entries for legality of the move. 
Only moves which are the correct colour, are from occupied squares 
and move to a square which can be reached by that piece, will be 
accepted. Pieces which are ‘taken’ in the process are removed from 
the board. 

The program does not indicate ‘check’ or ‘mate’ and will allow 
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moves which reveal check. It is up to the humans to watch out for 
these. En passant is not automatically dealt with but the ‘remove’ 
option may be used by a player to take the pawn if required on his 
move. 

Castling is handled by the program. The present position of the 
king and rook have to be correct, with no pieces between them, for 
castling to be implemented. The routine will still castle if'a piece has 
previously been moved but returned to the correct square. Moving 
through check is not monitored. These latter conditions must be 
detected by the players. 

A useful feature is that the initial board may be set up for chess 
problems or chess variants and games of up to 100 moves can be 
stored and analysed step by step. Play can continue from any stage of 
a saved game or the’ present game can be re-started and then played 
from any subsequent move. Pawns are automatically promoted toa 
queen when they reach the appropriate rank. 


Summary of commands and options 


1. Set up board. Enter ‘Y’ when asked. Then sequentially from the 
top left, place each piece using a single letter. Move on using ‘Space’. 


White pieces: P=pawn, R=rook, N=knight, K=king, Q=queen, 
B=bishop. 
Black pieces: the same but with ‘Shift’ held. 


White always plays up the board. 
2. Remove piece. ‘Shift’ *R’ then enter the position. Play continues 
with the next player. 
3. Castle. ‘Shift? ‘C’ then direction ‘L’ or ‘R’. 
4. Save game. ‘Shift’ ‘S’. You must ensure cassette Record and 
Play are on before saving as prompts are not displayed. 
5. Load Game. ‘Shift’ ‘L’, then press ‘Play’. This loads the first file 
found. 
6. Step through game. ‘Shift’ ‘3’ initiates step mode. ‘Space’ steps 
through each move. ‘Shift’ ‘3’ then ends mode. 
7. Quit. ‘Shift’ ‘Q’ resets for new game. 
1 REM <eeeeeee chess «> 
2 REM 
1@ CALL &BB@2:SPEED WRITE 1 
Soo SYMBOL 240,1,3,29,63,63,57,28,7 
S1i@ SYMBCL 241,0,12¢,56,252,252,156,56,2 


2d 
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S2@ SYMBOL 242,7,7,4,51,16,127,60,127 


550 S 
0,254 
Sida S 
S50 § 
16,24 
56a S 
S70 § 
dO, 22 
Bao s 


390 S 
120 
6400 § 
610 S 
doa 


620 
&20 S 


&d@ S 


650 
6, 205 
660 P 


1@0® 
191 
1920 
1930 
1440 
114® 
1iig 
1115 
1120 
11390 
=@ TH 
11404 
115q@ 
117 
1150 
117 
1300 
1500 
FOO 
ZOOODD 
ZOZIO 
ZOA3OO 
ZOZ1® 


YMBOL 2d3,22d,22d,22d,2d5,120,25d,5 


YMBOL 2#44,1,19,61,91,109,55,27,15 

YMBOL 245,123 200, 138, 218,182,2546,2 

7) 

YMBCL 246,1,1,7,14,29,28,14,7 

YMBOL 247,128,128, 224, 240,120,120,2 

d 

YMECIL 24S,0,@ 
2A9,O,1 


3,7,15,31,9,3 
YMEWIL , 


Gd, 224,176,208, 232, 


YMBCQL ZI@, @, ee arg ta 12,15 = 
YMBOL 251,9,0,152,152,152,245, #d0,2 


YMBOL 252,9,9,9,9,9,3,7,7 

YMBCIL 253,0,0.0,0.0 192, Bed, 22d 
YMBCIL 254,5,d,3,15,0,3 1,16,31 

YMBOL 255,220, 22d ,192,2d0,112,248,5 


RINT CHR$C23)53CHR$¢( 1); 
CLEAR?GOSUE 21000 

FOR n=1 TU 10@ 
z$(nj1)="  " 


zecn,2Z)=" ” 
NEXT nn 


GUSUER 2oOoao 
LOCATE 27,1&:PRINT "DO You WISH Ta" 
LOCATE 27,2@:PRINT "SET A BOARD =" 
at=INKEY#: at=LUIPPERS (at) 
IF at="Y" THEN GOSUB 3@@@OM:1IF check 
EN GOTCQ 1170 ELSE GOTO 114@ 
IF a$<>"N" THEN GOTO 1120 
GOSUER 22@0@:GOSUR 22000 
LOCATE 27,13: PRINT SPC¢14); 
LOCATE 27,2@:PRINT SPCC1d);5 
PRINT CHRS (23) ;CHR#¢ 1); 
count=1 
GOSUB 27000 
GUTad 1500 
INK @,@:2INK 1,262INE 2,6:INK 2,3 
PEINT #3," CHESS DUEL." 
PRINT #3, "°------------- 2 
LOCATE #2,2,6°PRINT #23,"FRCM :-" 
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2OS20 
ZOOM 
ZOVEO 
ZLAOD 
21910 
Z1OZ0 
21930 
21049 
Z1IOEO 
Z1OEM 
210790 
21LO0 
Z1OI® 
21100 
Ziiigo 
am a A) 
Z2L1LS@ 
21250 
SLVa@ 
ZEZOO® 
22010 
22020 
S2025 
22930 
220d 
2EOAD 
ZZOEQ 
22070 


ZEORO 


22100 
22110 
22120 
SeEL25 
22130 
221d 
22145 
22150 
22160 
22170 
221580 
ZEEE 
ZA 
232000 


22010 


LOCATE #3,2,9:PRINT #35,"TO 9 i=" 


FE TURIN 

F E M > : a te tee ee s 
DIM m$C(3, 
DIM z$(10@,2) 


initialize 


S>2DIM x#CS,5) 


k$=CHES (240)+CHRS( 241) 


kit=CHR$ (2d2) 


+CHRS$ (2d) 


q$=CHES$ (S49 +CHES (2d5) 


1 $=CHR$ (242) 


+CHRS (2d 5) 


hS=CHES$ (2d69+CHRS (247 > 
b1IiS=CHRS$ ( 2429+CHRES (2d 55 
t$=CHRS$ (2d 9+CHES ¢ 2d9 > 


tis=CHRS$ (242) 


+CHR$ (243) 


r$=CHES$ (25 09+CHES C251) 


rit=CHRS$ (2d2) 


+CHRS$ (2425 


PS=CHE$ (S529 +CHRS C253 


pis=CHES (25d 5 
FE TURN 
REM FRE: 
FOR n=1 TO 8 
FOF m=1 Ta & 
m$Crnygm>=" " 
X$ Crm =" 
NEXT m 
NEXT 

FOR n=1 TO 


MS$CZ n=" PV Ix 


m$C7 m=" PE 
NEXT n 


RESTORE 222350 


FOR n=1 TO & 
FREAD at 
m$C1l nn =as 
x$C1, nm) =ash 


at=LOWERS Cas) 


m$C3,1)>=as 
x$CA sn =as 
NEXT wn 

FOR n=1 TO 
z$Cn,il)=" 
NEXT 


— TVs 


KEZo8y=390 
FUR n=1 TO S 


we 
er 


+CHES (255 


game start 


$(2,n2="P" 
$C7, nS" 


1@® 
We 


P2zSCr,y2)=" 
ni RETURN 


’ 
*. 


* 


cr 3 


25020 
22030 
230d0 
2SOR® 
2IOED 
Fo1 

ZIO7® 
SIOLO 
ZIDID 
232100 
231190 
23150 
251d 
235150 
2SL3@ 
PeaecTs eC) 
2SAO® 
23510 
23520 


23530 


aT 2) 
sabes 
SITE 
33400 
2610 
aici 
2S75 

sepa 
24500 
24510 
4520 
24522 
2d324 
SA525 
24550 
24535 


Chess Duel 69 


FOR m=1 TO & 

c$=m$Cri,m) 

IF c$="" THEN GUTO 2310 

IF c#<"a" THEN col=2 ELSE col=3 

IF TESTC¢Cx-2,y+2)=3 THEN col=col Xa 


PLUT @,@,col 
MOVE x,y 
GOSUER 235a@ 
PLOT 0,0, 
x=BxK+dS 
NEXT m 

ty=y-di 
NEXT 
RETURN 
REM * * * piece * * * 
cH=UPPERS( cH) 
IF c#="K" THEN dt=k Si dl $=k1$ 
IF c$="GQ" THEN d$=q$idig=qist 
IF c$="K" THEN Ag=hb Si dL $=h1$ 
IF c$="T" THEN dAg=t$i di s=t1$ 
IF c$="R" THEN d$=r$idig=r1$ 
IF c$="P" THEN d#=pH i dis=p1gs 
PRINT #2,d% 3 
MOVE x,y-16 
PRINT #2,41%; 
FE TURN 
IF cas=1 THEN RETURN 
n$=""BCas=@ 
a$=INKEYS 
IF ag="Q" THEN GOTO 1000 
IF a$="C" THEN GOSUB 26500 
IF cas=1 THEN RETURN 
IF a$="S" THEN GOSUE 31000 
IF a$="L" THEN GOSUB S200@ 
IF at="#" THEN z$Ccount,1 .="FF"IGO 


Ta ZSsaae 


2d5d0 
24505 
24550 
74) 

243535 


’ 
Z2A560 
2d570 


IF a$="F" THEN GOTO 25500 
a$=LIPPER$ (as) 
IF a$i"A" CF afe"H" THEN GOTO 2451 


n$=a$iSCUND 2,150,5,15:PRINT #3,n% 


at=INKEYS 
IF a@e"i" GR age"9" THEN GOTO 2d56- 
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2) 
2qS50 
ad; 
24590 
ZATVEO 
ZIAD” 
ZaOlO 
2IOF® 
ZI19®@ 
22119 


n$=n$taS$i:SOUND F,1AS@,S,152PRINT #3 


RE TLUPFIN 


GOSUB 26000 
SOUND 2,30@,75,15 

ro=slico=s:GONSUB 25200 
m$Csi,sr=mecfi,f> 

IF play=1 AND fi1=1 AND m$Cf1,f>="p 


" THEN m#cfil,fo="q" 


25120 


IF play=2 AND fi=S AND m$Cf1,f9="P 


" THEN m#Cfi,fo="O" 


25120 
Z51da@ 
25150 
S160 
25170 
ZaZOO 
25210 
ba WP 
BSZ3O 
25240 
25250 
ZoZE@ 
25270 
S280 
2530@ 


2201@ 


“ 
25320 
25330 
Rol 
2E3d@ 
25350 
ZESEO 
25480 


fh 
n fa 
oO 
S 


hah ha hbo Roo by 
caine cau 


ro=slico=s:GNSUR 25200 

SOUND 2,190@,20,1%5 
ro=fl:rco=f:GOSUB 2S20@ 

m$Cfil,fo=" " 

RE TURN 

HEB iy=aIq@ 

FoF n=1 TO S 

Four m=1 TO 

IF n=ro AND m=co THEN GOSUB 25200 
K=xX+diS 

NEXT m 

XEEoS y=y-da 

NEXT wn 

FE TLIFIN 

cH=m$Crm,m) 

IF c#=" " THEN RETURN 

IF c#<"a" THEN col=2 ELSE col=3 
IF TEST¢x-2,y+2)=3 THEN col=col XU 


PLOT @,@,col!MCQVE x,y 

GOUSUE 23500 

FEE TURIN 

REM 

REM * * * remove * * * 

SOUND 2,300,d@,15:SOUND 2,400,50,1 


WINDOW #4,235,4d0,22,24 
PAPER #4,@:PEN #4,1 
INPUT #4,"Piece ",f% 
fF $=LIPPERS (FS) 
s$="A1":GOSUR 26000 
GUSUIB 23000 


25550 
Pee balod 2) 
2E570 
S35 550 
25590 
25600 
25610 


26070 
ZEO0R0 
26100 
26130 
ZE150 
26160 
26170 
26150 
2Ed80 
ZE50@0 
26505 
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m$Cfl,f>=" " 
ZHCcount, Lo =fH$iz$C count, 2 =Fs 
count=count+i 
IF count=191 THEN count=1 
CLS #4 
GOSUBR 2=200a 
IF play=1 THEN play=2:GOSUB 25000 
GOTO 1500 
REM 3RRDE EOE? ? convert “acteecdad 
FHASCCLEFT#¢(f#,1)) 
f=f-éd 
Ffl=VALCRIGHTS( fF, 19> 
-fi 
s=ASCCLEFT$ (54,19) 
s=5-64 
s1=VALCRIGHT#$(s#,1 9) 
si=9-s1i 
FE TURN 
FS=ECHESCF+EGI+HEXSC9-F1,1> 
s$=CHES(st+6d)+HEX$¢97-s1,1) 
z$Ccount,1)=f% 
z$Ccount,2>=ss 
count=count+d 
RETURN 
REM 3332 >> castling “f¢cedned 
PRINT #2,"C"s 
SOUND 2,640@,25,15:SQUND 2,d00,25,1 


SsSOUND 2,200,25,15 


26510 
ZES2ZO0 
6510 

ZE53Q 
26535 
265d 


a$=INKEY$! a$=LIPPERS (as) 
IF a$io"L" AND a$ee"R" THEN GOTO 2 


PRINT #3,a% 
n$="C"+a$icas=1i RETURN 
S$="AS" ts a$=RIGHTS$(F$,1)2GCSUB 2600 


O@:check=1 


ae 
2655 


2ER7O 
TURN 


IF (play=1 AND a$="L" AND m#$(&,1)« 
OR (play=1 AND a$="R" AND m$(8,3)< 
THEN RETURN 

IF ¢play=Z AND a$="L" AND m$(1,1)< 
CR ¢play=2 AND a$="R" AND m#$(1,4)« 
THEN RETURN 

IF play=1 AND m$(S,5)9<2"k" THEN FE 


IF play=2 AND m#(1,5922"K" THEN RE 
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26575 au=Lien=7:1IF play=1 THEN lin=S& ELS 
E lin=1 

26580 IF atg="L" THEN au=-lien= 

26590 FOR n=Stau TO en STEP au 

26600 IF méClin,nd<>" " THEN n=en RETURN 
26610 NEXT vn 


26620 fl=linifHSisi=filis=s+ekean 

26639 GOSUB 22a00 

S66d0 méCfi,fo=" "Im si,so="k" 

26605 GOSUB 26100 

26650 IF lin=1 THEN m#Cs1,s5)9="K" 

26655 zéC count, 1="CC"Pz$C count, Z="CCME 
count=count+l 

26660 fF1= Pee ensues hea eae 

26670 mSCfi,fo=" “smsCsl,soe"r 

26675 GOSUER 26é10® 

S660 IF lin=1 THEN m$Csi,s)="F" 

S6655 GOSUER 22Oa® 

26690 Cheek e Re 

ZE978Q REM 3 2 te Validate @feeeecedd 
S700 GOSUE E000 


27@10 check=1 

27020 cH$=m$(f1,f>tds=m$Csi,s) 

27030 IF c#=" " THEN RETURN 

270040 IF c#>"Z" AND play=2 THEN FETLUFN 
270350 IF c#<"a" AND play=1 THEN RETURN 
270355 IF d$=" " THEN GOTO 27100 

27060 IF Ags? ita AND play=1 THEN RETURN 
27070 IF dgi"a" AND play=2 THEN RETURN 
27100 c$=UIPPERS (cH) tdS=UPPERS (ds) 
27110 IF dg="K" THEN RETURN 

271350 IF c$="P" THEN GOTO 27300 

27160 IF c$="R" THEN GOTO 27400 

27170 IF c$="T" THEN GOTO 2750@ 

27150 IF c$="BR" THEN GOTO 27400 

27190 IF c#="Q" THEN GOTO 27700 

27200 IF c#="K" THEN GOTO 27800 

27230 check=@ 

27200 IF c#="K" OR c$="P" OR c#="T" THEN 
RE TURN 

27250 GOSUBR 2770@ 

27260 RETURN 

272790 REM * * * pawn * * * 

27300 IF play=1 AND s12f1 THEN RETURN 
27310 IF play=2 AND f1%2s51 THEN RETURN 


27320 
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dis=SGN¢sl-fld*¢si-fil>2IF dis=1 TH 


EN GOTO 27375 


2733590 IF dis?=2 THEN RETURN 

272d@ IF s<2f THEN RETURN 

27250 IF play== AND fl=2 AND m#C3,f>=" " 
THEN GOTO 27355 

27360 IF play=1 AND f1=7 AND m#cé,f)9=" “ 
THEN GOTO 27385 

27370 RETURN 

27375 IF s=f AND aAg=" " THEN GOTO 273a5 
27377 IF SGN(s-f)>*¢s-f9=1 AND dsc" " TH 
EN GOTO 27385 

27380 RETURN 


274 0® 
27485 
27490 
27S0® 
So 

273510 
3a 

27520 
at) 

27350 
Prd) 

27540 
Bo 

27 SO 
Ba 

275460 
Be 

27570 
3@ 

27575 
27330 
27290 
27E0@ 
2761@ 
27620 
27685 
27690 
Z2770® 
27710 
27720 


GOTO 27230 

FEM * * * rook * * * 

IF fieesi AND fies THEN RETURN 
GOTO 27230 

REM * * * knight * * * 

IF sil=fit+=2 AND s=f-1 THEN GOTO 275 


IF si=fi+=2 AND s=f+1 THEN GOTO 275 
IF st=fi-2 AND s=f-1 THEN GOTO 275 


IF si=fi-2 AND s=f+1 THEN GOTO 275 


IF si=fiti AND s=f-2 THEN GOTO 275 
IF si=fit+i AND s=f+2 THEN GOTO 275 
IF si=fi-1 AND s=f-2 THEN GOTO 275 
IF si=fi-1 AND s=f+2 THEN GOTO 275 
FE TLIF:N 

GOTO 27230 


REM * * * bishop * * * 
xd=f-sixd=SGNC xd exad 
yd=fi-siltyd=SGNCydd*eyd 
IF xdceyd THEN RETURN 
GOTO 27220 

REM * * * queen * * * 
xd=f-sixd=SGNCxdd#xd 
yd=fl-sityd=SGNoyd>*yd 
IF xd=yd THEN GOTO 27785 
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27730 
27785 
27790 
27 EO 


IF fl<zsi AND fees THEN RETURN 
GUTO 27220 

REM * * * king * * * 

IF SGNCfi-sid*¢fi-sioeei AND SGNCF 


—~Sd*¥CF-s)o<S1 THEN FETURN 


27885 
2TBIO 
27 IDO 
Z79LO 
27915 
Z79ZO 
27925 
Z79EO 
279d0 
27950 
27 96@ 
URN 
Z797® 
27 ISO 
ZEaoa 
ZROOS 
ii 
ZEO1LO 
LIE 


28030 
CVE" 
2040 
4) 


Z2SO3@ 


unt=1 


ZOO 


IS 
oo 
> 


S 


Psy 
& 


ww fo 
og } 
sags 


wo 
Ee <a 


 & 


COM DC a 
& 


a 
S 


CAA bob Boba Bo bo Bd bo 


S 
& 
S 
nar 
Si 


27900 


GOTA 27230 

REM * * * check path * * * 
nd=Oimd=o 

IF fi2s5s1 THEN nd=~-1 

IF sizfi THEN nd=1 

IF fs THEN md=-1 

IF sf THEN md=1 

cn=flicm=f 

cnecntnds cm=cm+ma 

IF cn=sil AND cm=s THEN RETURN 
IF m#Ccn,cmoee" “ THEN check=1tRET 


GOTC 279d@ 
REM 32 oo > turn <a 
GOSUB 24000 

LOCATE #2,1,11°PRINT #2," 


IF cas=1 THEN GOSUB 265d ELSE GOS 


IF check=@ THEN GOTO 2oA@h® 
LOCATE #3,1,11:PRINT #3," INVALID M 


SOUND = 5 Baa 4 fae) ’ 15 , ® 5 ” 5 2a:GOTO 2aao 


IF cas=1 THEN GOTO 220o9o 
z$Ccount,1)>=f% 

z$Ccount,2)=ss 

count=countt+itIF count=1@1 THEN co 


GOSUER Z2AOo@ 

FE TURN 

REM 33>3>>>3> both players <<<<e<4 
play=1 

GOSUR 2S@a0o 

play=2 

GOSUB 2Eooo 

RETURN 

REM 332 > PDE set board ¢4iddede 
XSI y=37O0 


FOR n=1 TO & 
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S0020 FOR m=1 TO & 
39030 SOUND 2,250,20,15 
SOOO MECH yMI=" “EXF$Crnym)=" 
SQO@S0 GOSUR SOhOo 

30130 PLOT @,0,@ 

S@1d0 x=xtde 

30150 NEXT m 

SO1EQ0 “Ee ty=y-ds 

20170 NEXT wn 

S@180 LOCATE 27,18°PRINT "IS THIS O.k. 

3O190 LOCATE 27,2@:PRINT SPCCid) 

20200 a$=INEEY$: af=WIPPERS ( as) 

IF at="Y" THEN check=@: RETURN 

IF a$="N" THEN check=1:RETURN 

202 GOTO Soz20® 

20A970 FEM * * * input * * * 

30500 PLOT @,@,2 

S@51@ MOVE x,ytPRINT #2, "9"'5 

3O@520 dAS=INKEY$S: cH=UPPERS CAS) 

20530 IF dt="" THEN GOTO 30520 

30540 PLOT @,0,2 

2@550 MOVE x ,ytPRINT #2," "5 

SOS60 IF c$e"R" AND c#eie"N'" AND c$ie"R" 
AND c#<2"Q" AND c#<2"EK" AND c#io"P" THE 
N RETURN 

30870 SOLIND 2,100,20,15 

ZOS580 ITF dt="n" THEN dAs="t" 

SOSIO@ IF dAgS="N" THEN As="T" 

20600 m$Cn,m)=As 

SO60R “BC ym) HAs 

20610 cH#=As 

SOE20 IF c#<i"a" THEN col=2 ELSE col=3 
30630 IF TESTCx-2,yt22=3 THEN col=col Xda 
Food 

30640 PLOT @,@,col 

S@650 MOVE x,y 

20660 GOSUB 22B5@@ 

350670 RETURN 

F1OdO gs=qghst+mS(n,m>+xSCrr,m) 

21110 OPENOUT "'CHESS" 

32010 CGPENIN "!CHESS" 

32050 mbCngm)=LEFTS( GF 192 xS$Cnymy=MIDSCY 
$,2,1) 

32060 g#=RIGHT$( g$,LENCG$)—-2) 


76 Sensational Games for the Amstrad 


Sd950 FEM 33532237 replay *#taccdacd 


S5Q0O@ count=@iplay=1 

35010 FOR n=1 TO S'FOrR m=1 Ta 8 
SHOTS mé¢cn,m=xsen,m) 

22020 NEXT mtNEXT vn 

SEO@25 GOSUR 2O@OGe: GOSUR BZOOo® 
S243 count=count+l 


SS@dO IF z$Ccount,19="FF" THEN GOTO S55 
@ 

35050 f$=z$ count, 1 sss=z$C count, =) 
35060 GOSUEB 26@0@:GOSUB Z250@0® 


S5O70 count=countti 


1) 


SS@75 IF z$Ccount,19="CC" THEN GOTO 3503 


@ 

SIOlO ags=INKEYS 

25090 IF atg=""" THEN GOTO 35050 
SSO9S play=zZ 

S519@ IF at="#" THEN GOTO S500 


35110 IF z$€count,12="FF" THEN GOTO 3550 


0) 
S120 Ff$=zHC count, 1) iss=z$Ccount,=) 


BS5150 GOSUB F4OO@O:GOSUB 2Saa@ 


SSLSS IF z$Ccountt+i,1 9="CC" THEN count=c 


Ount+e:2:GOTO S511 

S51d0@ ag=INKEYS 

S5150 IF ag="" THEN GOTO 351ad@ 
SSLSS5 play=1 

S516@ IF ag="#" THEN GOTO SS50a0 
25170 GOTO S5@30 

S535@00 IF play=1 THEN GOTO 1500 
25510 GOSUB BS0@@:GNTO 1500 


Now *MERGE’? the °BOARD CORE’ routine. 


9 
Gustavus 


A Novel Strategy Game for Two 


As far as | am aware this is the first computer implementation of 
Simple Simmons, a game usually played with pencil and paper. 

Simple Simmons or Sim was invented bya chap called Gustavus 
Simmons. We have decided to call this computer version of the game 
Gustavus as it sounds more grand than its paper cousin. 

The game requires players alternately to draw a line between two 
points. The first to form a triangle of his own colour, whose points 
each rest on one of the original points, is the loser. The trick is to force 
your opponent into making the fatal triangle first. 

The computer will take care of the turns together with the colour 
changes and will indicate the winner when a triangle is formed. 

Lines are drawn by moving the flashing cross, clockwise or anti- 
clockwise, using either left or right cursor keys or joystick. When the 
cross is on the first point from whicha line is required the copy key or 
fire button is pressed. A bleep signifies acceptance of the line origin. 
The cursor is next moved to the destination location, then as the copy 
key or fire button is pressed the line will be drawn. Ifan invalid line is 
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attempted a sound will indicate the fact. New start and finish points 
will then be required. 

The game cannot end ina drawand there is no apparent ad vantage 
gained by being the first player. This game is very good for 
developing spacial awareness! 


n- 


os ISSI/JIM fetes 


1 REM <fec4 
~ REM 

190® 
114 
1110 
1290 
13900 
1319 
1390 
1400 
1d1®@ 


gustavus 


GOSUE 
GOSUB 
GUSLIE 
GOSUE 
FOR n=] To 
NEXT 
IF play=1i THEN win=2 
LOCATE 14,24 
IF win=1 THEN PEN 
PRINT "PLAYER "swing" 
at=INKEYS 
IF ag="" 
INK 1,26 
GOTO 1100 
REM 
INE. 
BORIDEF: 
LOCATE 17,12PRINT 


ee 


1 aon 
ELSE win=1 


on 
= 


ELSE PEN 3 
won !" 


THEN GOTO 1430 


aoe 


PPO PE POPES screev %, % 4 
@,@2INK 1,Z6:INK 2,62 1NK 
O:PAPER @!PEN 1:MCIDE 1 
“GUSTAVUS” 


20030 
Z2O0d0 
ZOO 


2007 
20080 
20 100 
2@1L19 
20120 
ZO120 
291d0 
2ZOLS® 
291690 
ZOA0@ 
Z2O9E@ 
21000 
21010 
219020 


LOCATE 16,2 
FOR n=1 TO 


& 


PRINT 


PLOT pn, 1) gpcn,2),1 


DE:AWF: 
DRAWF @,-G: 
NEXT vn 
LOCATE 1,19 
PEN 2 


PRINT "PLAY 


LOCATE 33,14 


PEN 3 
PRINT 
TAG #3 


"PLAYER 


DRAWF: 


ER 
® 


i 


coc 
“a 


@,S:DRAWR —&,® 


a, 


PRINT CHR$¢ 23) 5; CHRS(1) 5 


RETURN 
REM 
DIM eee 


>>! 


ini 


RESTORE 21000 


FOR n=1 TO 


& 


sisi st< 


tialize 


Pe Re ae ae 
SA %. 


21@3@ 
214040 
21950 
21060 
21070 
21194@ 
21110 
ZLFEO 
22900 
22010 
22020 
ZEZO30 
220A0 
22 ORO 
22250 
22750 
23000 
22010 
22020 
ZIO3® 
250d0 
ZAOI0 
ZIOM60 
ZSO7® 
23030 
23090 
210 
23120 
235150 
ZAIAO 


24000 
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READ pcm, i> 

READ pcm, =) 

NEXT 1 

DIM d¢é,6) 

RETURN 

DATA 320,300,dd0,2d0,4d4d0,110 
DATA 320,50,200,1190,200,24d0 


REM 333333332 start game @ficddad 
FoR n=1 TO 6 

FOR m=1 TO & 

d¢(n,m)=@ 

IF n=m THEN dcn,m>=S 

NEXT m 

NEXT rr 

RE TLRIN 

FEM 33oGS2eS> Joystick t4eeeqndnes 
le=@:ri=O:f1i=0 

a=JMY (@) 

bh=JIOY¢O1L) 

a=a CF hk 

IF ¢a AND 4)=4 THEN le=1 

IF ¢€a AND 89=8 THEN ri=i 

IF ¢a AND 16)=16 THEN fi=1 
at=INEEY¢ 

IF at=CHRE#$¢2d2) THEN le=1 

IF a$=CHR$(2d3> THEN ri=1 

IF at=CHR# C220) THEN fil 

FOR p=1l TO SO2NEXT pp 

RE TURN 

REM 333032 Se ESS move yr ee: 
fFoint=1: IF play=1 THEN PLOT @, 


ELSE PLOT @,0,3 


Z2d010 
24020 
24030 
24040 
240350 
2d060 
24070 
24080 
24090 
24100 
24120 
241250 
24160 


MOVE pCpoint,1)-1O,pcpoint,2)>+1@ 
PRINT #3,CHR#¢159);3 

GUSUB 2300® 

IF fi=1 THEN GOTO 24150 

MOVE pCpoint,1>-1O pcCpoint,2>+19 
PRINT #3,CHRES(C15'7); 

IF le=1i1 THEN point=point—-1 

IF ri=i THEN point=point+1 

IF point=7 THEN point=1 

IF point=@ THEN point=4é 

GUT 2d@1e 

SOUND 2,200,5@,15 

FOR w=1 TO 30@ 
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24170 bS=INEEYS 
Sd1ic@ NEXT w 
24190 RETURN 
Zd200 MOVE pcfro,1l)-19,pcfro,2)+10 
24210 PRINT #3,CHRE¢C 159) 5 
Sd220 MOVE poCdes,1)-19,pcdes,2)+10 
2d2350 PRINT #3,CHRSC159) 5 
24250 RETURN 

24980 FEM > 
25000 GOSLIE ~A000 
25010 fro=point 
25020 GOSUBR 2daao 
22030 des= =point 
25035 GOSUB Sd200 
25040 IF fro=des OF d¢fro,des)<20 THEN G 
OTM 25200 
25050 PLOT pCfro,1>,pcfro,2) 

25060 DRAW pCdes,l>d,pcdes,=) 
25070 d¢des,frod=play 

25030 dA¢Cfro,desd=play 
25090 FOR n=i1 TO & 

25110 IF d¢des,no=play AND din, fro d=play 
THEN dead=1°GOSUER 2700® 
22130 NEXT n 
250190 RETURN 
25200 SOUND 2,200, 20, 15:SCUND 2,300,20,1 
=I SOUND 2,d00,da, 1S 
2a210 GOTO 2000 
S592@ REM a ae é 
26000 dead=O@:INE 2,464,224 
26@10 play=1:GOSUR 22000 
26020 INE 2,6 
26930 IF dead=i THEN FETLEFN 
26040 INE 3,20,11 
ZEQOR® play=2:GQSUB SIOO@ 
26060 IF dead=1 THEN RETURN 
iad INK 3,20 


turn faces 


both <<xeeeeedce 


26930 REM +: teoe> Highlight <<<<cdae 
27000 PRINT CHRS C23) CHR CO) 5 

270@S INK 1,S,158INE S,6:INK 3,20 
27010 PLOT pcCfro,l)> pcfro,2),1 

27020 DRAW Parry Ld gpcr, =) 

27030 DRAW pCdes,1>,pcdes,2) 

27040 DRAW pcCfro,1l> pcfro,2) 


27030 
27060 
27070 
270380 
27100 


PRINT CHRSC235)5pCHR&C1); 
FOR s=20@ TO 1 STEP-1 
SOUND 2,5,1,15 

NEXT 5 

RE TLIRIN 
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te) 
Dice Derby 


Shake! 


This is the first of a dice trio to be followed by Snake Eves and Craps. 
All three use the same central routines and a menu is provided to 
select between the games. This will produce an enjoyable set of dice 
games and save a lot of typing. 

Dice Derby is a race game in which the dice total is used to 
determine how far each horse travels. It can be played by two to four 
players and has an attractive shaking cup feature. 

The fire button is pressed to start the roll and again to finish. This 
means that each player can exercise control over the duration of each 
shake. 

The characters will race along until one is declared the winner. The 
winner is not determined until the last throw of the round and so 
some very close ‘photo finishes’ are possible. 

It is possible to end the game and return to the menu by pressing 
‘Shift’ ‘Q’ for quit. Another game can then be selected. 

Notes on typing in: the three dice games that follow can use the 
same routine called Dicerama! This should be typed first and then 
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saved onto tape. The games can then be added one by one. Of course 
it will not be possible to select a game from the menu if it has not yet 
been entered. 


1 REM <¢eeee¢ dicerarma <> ISSI }}>>>>> 
2 REM 

19@ ENV 1,1,-5,19,1,5,5 

500 EVERY 50@ GOSUB S00@:GOSUE 22000 


14@® GOSUER Z2@@@O@:PEN 2 

101 LOCATE 4,3:PRINT “1s Dice Derby" 
1920 LOCATE 4d,6&:PEN SSPRINT "2s Snake Ey 
es"3SET 

193 LOCATE 4,92:PEN d@!iPRINT "> Craps." 
1050 at=INKEYS$: IF atg="" THEN GOTO 1450 
1964 SOUND 2,200,25,15 

1079 ON VAL Cat) GOTO 44000, 50000 , 460000 
11@® GOTAa 1050 

ZOOM PEN S:LOCATE d,1@:PRINT "Press any 
Key" 

2@10 aZF=INKEYS:1IF at="" THEN GOTC 2010 
2030 GOTO 1900 

SOOO DIls:at=INKEYS 

5@10 IF at="G" THEN RUN ELSE RETURN 
19930 REM $33>>> REP screen Cfcccnc digs 
20009 RESTURE 20000 

2OO190 FOR n=@ TO 15 

20020 READ a 

2O@O30@ INK nya 

ZO9A® NEXT vn 

20050 DATA @,26,19,2,6,2d,20,35 

20060 DATA 3,9,9,9,9,9,9,0 

20070 PAPER @:PEN 1:2RORDER @:MODE © 
20030 PRINT CHR (223) ;CHRS CO); 

290@70 PLOT 10,1@,1:°DRAW 629,10:DRAW 629, 
19@:DRAW 10,190: DRAW 10,14 

2@140 PLUT @,@,1°DRAW 639,0:2:DRAW 637,200 
*>DRAW 9,200:DRAW 0,0 

2@11@ PLOT d@,d@,1S°DRAW SO, S0:DRAW 120, 
39:DRAW 160,4d@ 

2O120 DRAW 130,16@°DRAW 190,155: DRAW 70, 
14@:DFAW 4O0,da 

2@130 PLOT 120,16@:DRAW 140,165: DRAW 790, 
160 

2Q@15@ PLOT S@,d5,12°DRAW FO, 35°DRAW 134, 
SS:DRAW 170,45 
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29164 DRAW 14d@,165:DRAW 1 
65:°DRAW 5@,45 

2@17@ PLUT 140@,165:DRAW 1 
165 


19,160:DRAW SQ, 


19,1790:DFRAW 3a, 


29180 PLOT 1950,d@,11:DRAW 120,cS@:DRAW 195 


3,114: DRAW 195,150 

Z2@19@ DRAW Z2@5,11@:DRAW 2 
d@ 

29200 DRAW 325,455 DRAW 33 
OSI DRAW 175,150 

20210 PLOT 60,350,135: DRAW 
SO2:DREAW 100,5@:DFAW 690,50 


Q0,S30:DRAW 180, 
S,75:DRAW 330, 1 


60@,20:DRAW 100, 


ZOZ2O PLOT 110,5@,15:DRAW 110,@:DRAW 15 
@,SO@:DRAW 150,5@:DRAW 110,50 


2O@2350 PLOT 6@,2@:DRAW Sa, 
DRAW 100,80 

Z2O@2d@ PLOT 110,8@:DRFAW 13 
@:DRAW 170,6@:DRAW 150,50 
20250 PLOT 170,9@:DRAW 15 
20500 RETURN 

20980 REM $3333 33332 ratt 
2100 GOSUR 20070 

21@1@ INK 11,@:INK 15,@ 
21020 INK 13,2d:INK 12,0 
Z1@30 FOR g=1 TO 25:NeExT 
2104@ SOUND 1,200,1,15 
21050 INK 12,24d:INK 13,0 
21060 FOR q=1 TO 25:NEXT 
Z1@7@ SCILIND 1,10@,1,15 
21160 di=INTCRND(1)*6)+1 
Z117@ dZ=INTCRNDC1)*6)+4 
2119@ a$=INKEYS:IF ag="" 
21200 INK 13,@:INK 12,0 
21210 INK 11,24:INK 15,20 
Z1z2@ SQUND 2,150,25,15 
Z1230 ch=d1:GOQSUB Z1d00 
Z1Zd@ IF s¢i)=1 THEN PLOT 
2125 IF s¢Z)=1 THEN PLOT 
ZiZé@ IF s¢3)=1 THEN PLOT 
21270 IF s¢d)=1 THEN PLOT 
Z1Z3@ IF s¢S)=41 THEN PLOT 
Z1Z90 IF s¢6)=1 THEN PLOT 
Zi30@ IF s(€7)=1 THEN PLOT 
21310 ch=dz:GOSUB Z1d0@ 
Z1i3Z@ IF s¢1)=1 THEN PLOT 


FO:DRAW 120,90: 


@,I@:DRAW 170,% 


@,2@ 


Ct 7 
l er vier a ae a ners 
e i NN Sh 


ra 


q 


THEN 219010 


21330 
21340 
21350 
21360 
21379 
ZLSSO 
21390 
Z1d0@ 
21405 
Zidia 
21ld2a 
Z21d30 
Zldda@ 
2Lda@ 
21d460 
21d70 
21450 
ZLSO@ 
21519 
21520 
21530 
Z1LSd@ 
2LSS@ 
21920 
ZLOOD 
22050 
ZEd30 
ZLIOD 
22510 
22520 
22520 
22500 
22550 
227380 
Z3OO® 
23010 
ZIOZO” 
23930 
230d0 


NNN N 
i 
af 
S 


IF s€2)=1 THEN PLOT 
IF s¢€3)=1 THEN PLOT 
IF s¢d)=1 THEN PLOT 
IF s¢S)=1 THEN PLOT 
IF s(6)=1 THEN PLOT 
IF $¢7)=1 THEN PLOT 
RE TURN 

IF ch=@ THEN ch=4 

IF ch=1 THEN RESTORE 
IF ch=2 THEN RESTORE 
IF ch=% THEN RESTORE 
IF ch=d4 THEN RESTORE 
IF ch=S THEN RESTORE 
IF ch=6 THEN RESTORE 
FOR n=1 TO 7 

READ s(n)tNEXT ns 
RETURN 

DATA @,@,9,9,9,0,1 
DATA 1,9,9,9,9,1,@ 
DATA @,9,1,1,9,%,1 
DATA 1,0,1,1,0,1,@ 
DATA~ 1.04 1451,@\151 
DATA 12104125140 
REM 3>>>222> initial 
DIM s¢7):DIM p(d,3)# 
RETURN 
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119,65 
118,53 
1d@,72 
149,65 
140,35 


128,65 


21500 
21510 
21526 
21530 
21540 


BLSS0 


LEQ ALARA AAS 


DIM o¢d4) 


REM #oe> >> R EEE clear *28cdecqcdes 


LOCATE 1,1 

FOR n=1 TO Zao 

PRINT " "3 

SOUND 2,2d1-n,1,15 
NEXT 1 

LOCATE 1,1:RETURN 
REM ¥2>>2>>>>> playe 
GUSUB 22500 

PRINT “PLAYERS ? (2- 
at=INKEYS 

IF ag<"2" OR ag>"a" 


rs “4taddcdd 


4d) 


THEN 23020 


SOUND 2,30@,25,15:SCUND #,200,25,1 
S:SOUND 2,100,25,15 


GUSUB 22500 
FOR n=1 TO 4 
eCm,1)=a 
NEXT 
piay=VAL Cat) 
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dOOD1® 
1O9020 
AODaR® 
49933 
4oo410 
40050 
49052 
40034 
A99D4E9 
A907% 


FOR n=1 TO play 

oc¢n)=1 

NEXT wn 

FOR q=n TO 

o€q)=a 

NEXT 

RETURN 

REM 33> >3>> dice derby <<edeceed 
GOSUB 23000 

FOR mn=1 TO ad 

pn, LHSip dn, 2) =38d—-ne se 
NEXT ¥ 

PEN & 

RESTORE d@19@ 

FOR n=i1 TO 12 

IF n=d THEN PEN & 

IF mn=1@ THEN PEN 6 

READ a 

LOCATE 24,1 

PRINT CHES Ca) 3 

NEXT 1 

DATA 235,149,149,79,73,798,73,82,72 


,149,149,191 


dO1350 
40200 
do204 
40210 
AOZ20 
dO23o0 
40240 
dOZ50 
1O260 
40270 
40275 
ro tk) 


RCL); 


4O290 
4190300 


GOSUER dyaoo 

FOR w=1 TO play 

PEN wtl 

LOCATE 123,152 PRINT "PLAYER"; 
LOCATE 15,17:PRINT w 

SQUND 2,20@,50,15 

at=INEEYS 

IF at=""" THEN GOTU d@sd@ 

PLOT @,@,@!:GOSUB 21230 

GUSUER 21i@a@ 

FOR d=1 TO Cdltd2o*e 

SOUND 2,d@@,1,15°PRINT CHRS (C22) 5CH 
*GOSUB 4'700@ 

BCwW,1>=pcdcw,1dt+a 

SOUND 2,200,1,15:GOSUR d7000: PRINT 


CHR (23) 5 CHES (@) 3 


40310 
AOS30 
A9360 
40370 
A4O350 
dozya 


NEXT «a 
NEXT w 
win=@ 


FOR n=1 TO d 
IF win?@ THEN GOTO dodoo 
IF pan,yio257@ THEN win=n 


1Od ao 
40d10 
dod50 
dOdé0 
AO500 
40510 
dasea 
4OS30 
40540 
4OS7® 
406400 
dO@610 
40620 
40620 
A7000 
4979010 
A9O20 
47030 
A704 
459050 
49960 
A970 
AIDEO 
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NEXT wn 

IF win=@ THEN GOTO doZzo@ 
GOSUB 2SSa@ 

PRINT " Player "swing" won ! 
RESTORE do6oo 

FOR n=1 To if 

READ a,k 

SOUND Z,a,b,i5,1,9 

NEXT wn 

GOT 2400 

DATA 319,50,25d , 20,253 ,20,259,20 
DATA 253,290, 23d ,20,3519,50,319,10 
DATA 284,20,253,20,239,20,253,20 
DATA 254,20 

FOR n=1 TO a4 

TAG #1 

PLOT @,@,rnt+14 

MOVE pdr ld ypc, 

PRINT #1,CHES (234); 

TAGUFF 

NEXT n 

PLOT @,@,1 

RE TURN 


87 


il 
Snake Eyes 


Rattle! 


This is the second of the three dice games. Dice Derby must be 
entered first and then Snake Eves can be added. The instructions for 
throwing the dice are the same. 

The game is for two to four players and includes on-screen betting. 
At the start the target pot is entered, which may be between £40 and 
£400. The bank starts at £0. 

Each player then rolls the dice. Ifa double is thrown then the player 
wins the bank amount. If ‘Snake Eyes’ (two ones) is thrown then the 
player gets twice the bank total. The bank resets to zero when it pays 
out. 

After each round the bank gets £5 if the target set is below £200 and 
£10 if the target is above £200. 

The game continues until a player’s cash reaches the target score. 

It may be interesting to change the amount to the bank after each 
round to provide a larger ‘pot! 
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49950 REM 323333332 snake eyes tceciddas 
390990 GOSUB 23008 

S0@1@ WINDOW #52,1,29,97,11:PEN #23,2 
30020 PRINT " Enter Win Score ?" 

S430 INPUT #5,lim:1F limsd@® OF limed@ 
THEN GOTO Sooo 

S0@40 upda=S:GOSUR Z25@@2IF lim?20@ THEN 
upda=10 

S@@S5® PEN Z2SLaCATE 3,1:2PRINT "1" 

39060 PEN 3&LOoCATE S,1:°PRINT "2" 

S9@7@ PEN d?tLOCATE 12,1:PRINT "3" 

39030 PEN S:LOCATE 15,1:PRINT "a" 

SO@OI7@ PEN GILOCATE 1,2:PRINT STRINGS (20, 
45) 5 

S@1@@ PEN &tLOCATE 1,12°PRINT STRINGS( 20 
945) 5 

3@11@ PEN S!lccaATe S:IPRINT STRINGS( 20, 
AS) 5 

S@150 kit=@ 

3@170 kit=kittupda 

SQ@150 per=1 


SOLI®@ 
5O19S 
FOO 
ER" 

SO2Z1@ 
O22 


FOR mn=1 TO dt LOCATE n*S-d,d 
PRINT pry l) NEXT nn 
PEN pertliLaUCATE 13,15:2:PRINT "PLAY 


LOCATE 15,17°PRINT per 
GMSUE 505002 1F pCper,il>>lim THEN G 


QTO SaOa@ 


a AQ 
1794 
SO24@ 
SOSO® 
SOS1®@ 
SOSA 
it 
SOSA® 
SOSE@ 
SOR7Y 
SOSSO 
@ 
EORIO 
FORA 
ba 
aMG1@ 


a 


per=per+itIF persplay THEN GOTO 2a 


GOTO S@19@ 
as=INKEYS 

IF a$="" THEN GOTO S@sa@ 

CLS #5:PRINT #5,"Bank stands at" jk 


PLOT @,9,@:GOSUB 21220 

GUSUEBR 2140 

IF dil=1 AND dZ=1 THEN GOSUE 2600 
IF di=d2 AND dissil THEN GOSUB 3076 


RE TURN 
SCUND 2,300,25,15:SCUND 2,200,25,1 


SOUND 2,10@,25,15:SCUND 2,%00,25,1 
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SMEZO 
IOE3@0 
UMEAO 
207 OQ 
S 


=O71@ 


c 
~! 


S3O720 
30730 
aO7AQ 
bai ba A217) 


=2@ 1@ 


pCper, 1 =pcper, 1 tkhit*e 


kit=0 
FE TURIN 
SOUND 2,400,235, 


SOLIND 2,d@@,25, 


pcper,lo=pcper, 


kit=0 

FE TUFIN 
win=per 
GUTTA dodo 


1S:SCUND 2,200,590, 


1S:SCUND 2,100,590, 


1>+kit 


1 


Baw ® Ramee we a & 


and Roll! 


Here it is, the micro version of the American dice game featured in 
gangster movies and |TV shows. 

Two to four players can now pretend that they are in Las Vegas 
courtesy of the Amstrad. 

At the start of the game each player has £100 (you can change it to 
dollars if you want more realism!). A bet is placed up to the total 
holding of each player on his turn. Then the fun begins. 

Ifa 7 or Il is thrown first then they are paid evens. If 2,3 or 12 is 
thrown the turn ends and the stake is lost. Any other total becomes 
the point. This is then the total to roll for. 

The player continues to roll until the point is reached, paying 
evens, or a 7 is thrown in which case it is the next player’s turn. 

If a player loses all his money then he drops out and the game 
continues until only one player is left. 

Pressing ‘Shift’ ‘Q’ will quit it any time. 

This listing requires that the Dice Derby listing is entered first, 
since it uses the same start routines. 
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EOORO 
43); 
E9OE@ 

A) 5 
E0085 
45) 5 
EO07O 
69030 
E907 
60108 
EQ015@ 
60160 
E0170 
BOLE@ 
6Q0185 
60190 
EOZO® 


Pa ee ee ee 


craps «<e4cceddeds 


PEN 3 t LOCATE Sy1ltPRINT "1" 

PEN S3!LOCATE S,i:PRINT "2" 

PEN 4:LOCATE 13,1°PREINT "3S" 

PEN S:LOCcATE 13,1:PRINT "a" 

PEN G?:LOCATE 1,2:PRINT STRINGS(20, 


PEN 6:LOCATE 1,12°PRINT STRINGS( 20 
PEN S:LoOCATE 1,&°!PRINT STRINGS(20, 


WINDOW #5,1,20,9,11:PEN #5,2 
FOR n=1 TO 4 

pdm, 1d=100 

NEXT n 

FOR w=1 Ta play 

FoR n=1 Tod 

LOCATE neS—d ds PRINT pin) 

NEXT ni 

IF pCw,19<1 THEN GOTC &a@500 

PRINT #5,"Player"sw3"Bet 7" 

INPUT #5,betiIF bet<1 OR betepcw, 1 


>» THEN SOUND 2,30@,50,125:GOTO 60200 


E0240 
E9250 
690260 
60270 


275 


nrerp ot 

eo oe fae 

4f4 4 Risa ha RS bo 
Li 
g 


eae 
oS 


6035350 
60340 
EO50@ 
60305 
60510 
40520 
EOSIQ 


PLOT @,@,@:GOSUB 21230 
GOSUE 21000 

tot=ditd2 

IF tot=7 OR tot=11 THEN GOTO &1000 


IF tot=2 OR tot=3 UR tot=12 THEN G 


629000 


point=tot 

PRINT #5," Foll again « . -" 
angaalebgtiggren’ at=""" THEN GOTO 60295 
PLOT ©,@,@:GOSUB 21230 

GOSUE Sioee 

tot=d1l+d2 

IF tot=point THEN GOTO 6140@ 

IF tot=7 THEN GOTO 62000 

GUT 40290 

NEXT w 

flag=9: con=® 

FoF n=1 TO play 

IF con=1 THEN GOTO 403540 

IF p(n,1)2@ AND flag=1 THEN con=t1 
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60535 IF pdn,l)>@ THEN flag=1 

60500 NEXT 1 

£0550 IF con=1 THEN GUTO 60150 

695468 win=@ 

60570 FOR n=1 TO play 

60580 IF wins ?>@ THEN GOTO 6060@ 

60590 IF pdn,l)20@ THEN winsn 

64600 NEXT n 

646610 GOTO d@dse@ 

61000 CLS #5:SQUND 2,200,205 ,15:SOUND 2,2 
OO@,25,15:SOUND 2,190,4d0,15 

61@10 PRINT #5," You win !" 

61020 pCw,1ld=pCw,lothet 

61420 GOTCU 60500 

62000 CLS #5:SOUND 2,100,205, 15°SQUND 2,2 
@O,25,15:2:SOUND 2,400,d0,15 

62010 PRINT #5," You lose !" 

B2020 pCw,lo=pcw,lo-het 

62030 GOTC &405a@ 


13 
Pontoon 


PLAYER 2 PLAYER & 


gyelenygr fis" 24 


@ . STICK weXST weTT avy 


A Pair can Break the Bank 


In this computer version of the well known card game the bank starts 
with £500 and each player has £100. One or two players each play 
against the bank and aim to get a total of 21, which is Pontoon. 

One card is first dealt face up to each player and one face down to 
the bank. A bet up to the total cash available may then be placed. The 
next card is dealt and various options are given to each player on their 
turn. 


‘S’tick. If the total is 16 or over then pressing ‘S’ will pass play on. 
‘T’wist. If another card is required this option may be taken by 
pressing “T’. 

‘B’uy. Used when a hand looks good, to double the stake. 

An ace will be taken to have the best value, i.e. | or 11 dependent 
upon the other cards. If at any time the card total exceeds 21 then play 
passes on. When both players have finished, the bank will then play 
its own hand to determine payout. It should be remembered that play 
is between the players and the bank, not against each other. 
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Wins and losses are calculated as follows: highest score is Pontoon 
with two cards, e.g. 10 and a Queen. The next highest score is a 5-card 
trick, which may be any five cards which do not exceed 21 in total. 
Pontoon withany card permutation is the third high score. If none, of 
the above exist then the highest score wins. Where the bank’s total 
equals that of a player then the bank wins. 

The game continues until each player has lost all available cash or 
until the bank is bust. ‘Q’ for Quit may be used to end a game 
prematurely. 

This program shares many lines with the following card games. 
The routines common to all should be entered first, saved and then 
the remainder entered. 

"CARD CORE? 


FIIO REM >>> GENERATE PACK <4acecadadedd 
1960 FOR suit=1 TO 4 

19@OS FOR car=1 TO 13 

19@10 pac (suit, car) =CHRS(Csuit+Z2e5) 
1@@15 IF carsii AND car?i THEN pacé(suit 
, Car d=pacé( (suit, card +STR#¢ car) 

1@@16 IF car=1 THEN pact(suit,card=pacé¢ 
suit,car d+" A” 

19@20 IF car=11 THEN pac#¢suit,card=pacs& 
Csuit,card+" J" 

19M@25 IF car=12 THEN pact (suit,car)=pac# 
Csuit,card +" om" 

19@30 IF car=13 THEN pacé(suit,card=pac 
Csuit,card+" K" 

19@25 NEXT car 

1904 NEXT suit 

16@d45 RETURN 

19490 FEM 322322 SHUFFLE PACK <fdecded 
192500 FOR n=1 TO Se 

193505 pacno=antavcnj=1 

103510 NEXT wn 

1@S1i5 FOR a=1 TO 3a 

103520 wWi=INTCRENDC1>*5194+1 

1O@S25 n2=INTCRNDC1>*#S19+1 

10230 cc=pacnl) 

1O@3355 pacnid=pacnZ> 

19340 paCnZ)=cc 

1@2d5 NEXT a 

19350 RETURN 
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19990 FEM 32>>3>>>> DRAW CARD ¢<iccccas 
19995 PRINT CHRES¢ 24); 

119@@® LOCATE cx-l,cy 

11@@5 PAPER @:PEN 1:PRINT CHR C230) 5° FOR 
z=1 TO S:PRINT CHES( 22d) 5,2°NEXT 2? PRINT 

CHES (231) 

11@1@ LUCATE cx-i,cytl 

11020 PRINT CHR&¢(23d);:PAPER 1?PEN @:PRI 

NT FIGHT#é(pacé(suit,card,2)5 

11921 IF LEFT#(pac#(suit,car),1)=CHRS (C22 
7) OF LEFT#(pact(suit,car), 1 =CHE$ (225) 
THEN PAPER 1:PEN @ ELSE PAPER 1:PEN @ 


11922 PRINT LEFT#¢pac$(suit,car>,1)5 PAP 

ER @:PEN 1!:PRINT CHR$(142) 5 CHR (143) 5 CHR 

$C 235) 

11@25 LOCATE cx-1l,cyt2 

11430 PRINT CHRS(23d)5;°F0R 2=1 TO StPRIN 

T CHR ¢1dS>5;2NEXT zSPRINT CHR C235) 
11@335 LOCATE cx-1l,cyts3 

11@d@ PRINT CHR (224) sCHRS (143) 5CHESC1dS 
DStIF LEFTSCpac#(Csuit,car), 1) =CHRS (227) 

OF LEFT$ (pact (suit,car), Lo =CHRES C225) THE 

N PAPER 12PEN 2:ELSE PAPER 1:PEN @ 

11445 PRINT LEFT# (pact (suit,car),1)52=PEN 
L=PAPER @:PRINT CHR#( 143) 5 CHR $¢ 143) 5 CHR 

$C 23559 

11350 LOCATE cx-1,cytd 

110355 PRINT CHR$¢( 235d) 5°FOR z=1 TO S2PRIN 

T CHES C1d3>5°NEXT ztPRINT CHES ¢ 2235) 

11@60 LOCATE cx-1i,cytS 

11465 PRINT CHES (23d) y CHES C142) ;CHES (C143 

>; CHRE(1d3)5:PAPER 1:2:PEN @:PRINT RIGHTS$(¢ 

pac#(suit,car),2)5;°PAPER @:PEN 1:2PRINT C 

HE (235 

1197@ LOCATE cx-1i,cyté 

1190735 PRINT CHR®¢233)5°F0R z=1 TO SiPRIN 

T CHR$ (2259 5°NEXT =22PRINT CHES (232) 

11976 SOUND 1,140,2 

114380 RETURN 

11170 REM 33332 DRAW CARD BACK <<4e4 

11200 LOCATE cx-1l,cy:PEN 3 

11205 PRINT CHR$( 2369 5°2FOR n=1 TO StPRIN 

T CHES (2d) 52:NEXT mi PRINT CHR#$¢ 237) 

11210 FOR mn=i TO StLacaATe cx-i,cytrn 
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11215 PRINT CHES ¢24d295°FOR n=1 TO 3: PRIN 
T CHRS¢Sdd>5;5NEXT niPRINT CHRé(2d3) 
11220 NEXT wn 

11225 LOCATE cx-1l,cyt@:PRINT CHRS C2359) 35 
FOR n=1 TO S:PRINT CHR$¢(2d1)5:2=NEXT ni PRI 
NT CHR C235) 

11226 SOUND 1,300,2 

11230 PEN 1: RET IFN 

16990 REM +33>>>>> CHARACTERS <c<c<¢idede 
179@@ SYMBOL 22d ,O@, 255 255 255 255,255,282 
Sa, 255 

17405 SYMBOL S25 S55, 255,255,255, 255,255 
yy @ 

17910 SYMEML 1,9,63, 127,127,127, 127,12 
7,127 

17@15 SYMBOL 231,0,252,25d,25d,25d,250d,2 
Sd, 25d 

17@20 SYMBOL Z232,25d,25d,25d,25d, 250,250 
yew, 

17025 SYMBOL 233,127,127,127,127,127,127 
oe) 

17430 SYMBOL 234,127,127,127,127,127,127 
yl27,127 

17@35 SYMBOL 235, 25d,25d,25d,25d,25d, 254 


5 254 9 254 


1704 SYMBOL 236,0,65, 106,85, 106,85, 106, 
17045 SYMBOL 237,0,252,170,86,170,86,179 
y56 

1795 SYMBOL 238,170,86,170,86,170,86, 25 
2,0 

17055 SYMBOL 239,106,85,106,85,106,85,635 
@ 

17@6 SYMBOL 240,0,255,170,85,170,85,17@ 
135 

17065 SYMBOL 241,170,85,170,985,170,985, 25 
5,0 

1707 SYMBOL 242,106,95,106,85,106,55,10 
6,35 

17@75 SYMBOL 243,170,86,170,56,170,86,17 
®, 86 

17080 SYMBOL 2#dd,170,E5,170,85,170,85,17 
0,235 


‘Card core’ should now be saved separately for use in other card games. 
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eee ee DON POE he 


Je OO the & 


NM 


REM << PONTOUCN ANDY / JIM 322 


DEFINT a-=z 
DIM paChZ)  ,av(S2) pac&(S,13) 
DIM cx¢dd,cycd) 
DIM nocd) plce)d 
DIM plce(3,5) bees) 
DIM mo¢2@) ,pReoey 
SYMBOL AFTER 223 
GOSUBR 179@®@ 
GOSUB 11250 
MoC1I=1O@OrmoCZ)=1OOl mc=AA® 
CCCLIDEBEZOi ccCSdDH335iI cc CS)=& 
RIC =H=Lipl¢so=i) 
GOUSUB 19900 
GOSUR 1050@ 
CLS:SIF np=l THEN pl¢2>=o 
IF pl¢id=@ AND pl ¢2>=@ THEN 
IF pl¢1)2=@ THEN hec1)>=0 
IF plc2)=0 THEN hec2)=@ 
GOSUER 12000 
cx¢1o=15icxn¢e 
cy(1 FKBicyCZI=5 
bxseahyss 
GOSUB 12500 
FOR q=1 TO np 
IF pl¢q>=@ THEN 35 
GOUSUR 1d@0@ 
GOSUB 180@a@ 
NEXT 
cCxEbxicy=hy: FOR gq=1 TO ne 
GOSUB LL2O@O@2 cy=cytSicx=cxt+l 
GOSUER 1600 
FOR q=1 TO nptIF pl¢q)=@ TH 
cy=cy(q)tcx=cex (gq) 
cy=cytZicnecxtl 
GOSUB 16500 
GUSUR 1500 
CXCYD=CKK 
NEXT gq 
cxebxtiicy=by+te2i:GOSuRk 11100 
GOSUB LiZede 
GOUSUB 14500 
REM 3333523 > SCORE LOGIC <« 


cets) 


ZEOOA 


=NEXT 4 


EN S@ 66 


aoa ab abel ah eat ¢ 
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9S IF mp=e THEN Ya ELSE IF sc¢€1)221 THEN 
pSC1d="L"sGOTG 15@ 

Sd IF sc€1)221 AND scC2>221 THEN ptci>=" 
L'sp$C2ZQ="L"EGOTO 1350 

95 FOR w=1 TO ne 

19®@ cxEbxicy=Chy-Z)+twke 

1035 plecS,ywo=hecw) 

11 GOSUE 130@@:GOSUR 11900@ 

111 bx=bx+t 

115 NEXT w 

116 bxe=cxnihy=cy 

120 FOR w=1i TO ne 

125 plecS3,wo=bceCw) NEXT w 

120 gq=Sinoc(SencicxCS) =hxiGISuB 129000 
135 IF sce¢3)<16 THEN GOSUB 1114@ ELSE Gu 
TO 15 

136 bxesbxtliby=byt2iplecSyncebeCncd tqe3 
Pcx=bxicy=hyiw=nciGOISUuB 130@@:GOSUB 114 
@ 

137 noc(S .=nciGUSUuB LS0@0@ 

1d@ IF nc=S THEN 15 ELSE GOTO 135 

ids f=CRNDC1L>*29+17°1F sccSoef THEN GOSU 
B 111@@:GOTO 136 

150 y=1 

151 IF pl¢q>=@ THEN 2@@ 

1S2 TF seCyde21 THEN pScqo="L'iGoTo 2a0 
153 IF scCS)221 THEN péCqo="W" GOTO Zao 
1640 IF nc=S AND noc q)=S THEN pecqo="L"s 
GOTO 2a@ 

162 IF nocdqo=S THEN péCqo="W"tGOTO 20a 
163 IF nc=S THEN péCqo="L"'tGOToO 200 

164 IF sc€S)esceCq) THEN pSCqo="L"'GaoTa 2 
ag 

165 IF sec So=21 AND nce=2 AND scCq)=21 AN 
D nocdqo=2 THEN pC qd="L"i'GoTo 240 

17® IF noc€qd=S AND nes<S THEN péCqo="W"'s 
GUTO 2a@ 

7S IF sc€qo=21 AND noc€q)=2 THEN pSCqo= 
"W'"iGOTO 2a@ 

180 IF secqdeseCS) THEN pS qo="W"iGOTo 2 
215) 

15 IF secqd=se¢S) THEN pec qo="L"tGOTO 2 
(2X0) 

186 IF scecSoeseCq>) THEN pécqo="L" 

200 IF mp=zZ AND q=1 THEN q==:G0TO 151 
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201 IF np=i THEN 225 

205 IF p@Cid="L" AND pSC29="L" THEN Se 

210 IF pécid="W" AND peCZo="W" THEN So 

215 IF pécil>="W" AND pSc2o="L" THEN 600 

220 IF p#Cid="L" AND pRC2Z9="W" THEN 650 

225 IF péCl1>="W" THEN dae 

220 IF p$Ci1)="L" THEN 450 

24% END 

S95 REM 2o>2>>> >> PLAYER WIN Sefedececcde 

400 mc=mc—he ci) 

405 mo€1>=mo (1 thec1i #2 

406 GOSUB 22000 

41@ IF mci THEN 75@ 

411 GOSUB 1700 

d12 LOCATE 1,25: PRINT"Player wins": GOSUE 
173500 

415 GoTa 2 

dda FEM = : 

450 mc=mcthe cl) 

431 GOSUBR 1700@:GOSUB 2350@ 

452 LOCATE 1,25:PRINT" Bank wins" ?tGOSUB 1 

Wao 

d33 IF mocid<i THEN pl cid=o 

4355 GOTO 2@ 

495 REM 2332>>>2>> BOTH WIN “eeedecdcdde 

240 moCil =mo Clothe C1l)*2 

SOS motZ =mo CZ) +theCZ #2 

206 GUSUB 22000 

210 mc=mc—heClo-be cs) 

S15 IF mci THEN 750 

S16 GOSUB 197000 

S20 GOT 2 

S45 REM 333o>>>>> BOTH LOST <<<enceeddd 

350 mc=mctheClot+thecZ) 

SS1 GOSUBR 1900@:GUSUR 23500 

aa IF mo¢ide1 THEN pl ¢1>=@ 

sad IF mo€Z)<1 THEN plc2)=0 

25: IF pl¢1)=@ AND pl¢2>=1 THEN LUCATE 1 
,22*PRINT "Player 2 loses" 

960 IF plCl)=1 AND pl¢2>=@ THEN LOCATE 1 
,2-'PRINT "Player 1 loses" 

365 IF pl¢l)=1 AND pl¢2)=1 THEN LUCATE 1 
year tPRINT "Both players lose" 

266 GOSUB 1950 

270 GOTO 2@ 


BANK WIN <€<eeeeeeds 


9S 
600 
605 
610 
611 
&1d 
615 
616 
617 
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REM 333233223 PLAYER 1 WIN ¢eedacece 
mc=mcthe CZ) 

mo€1d=mo Clothe 1l)*z 

mc=mc—-he C1) 

GOSUB 2SBOOo 

IF mo€2)£1 THEN pl¢cs)=a 

IF mc#i THEN 72@ 

GNSUR 15400 

LOCATE 1,25:PRINT"Player 1 wins":GQS 


UB 19500 


G20 
6d5 
650 
655i 
660 
BEL 
66d 
665 
666 
667 


GUTTA 2 

FEM 33o>2>> PLAYER 2 WIN ceeded 
mc=mcthe 1) 

motZ =mMoCZ the CZ) *2 

mc=mc—-hec2) 

GOSUB 220aan 

IF mocid1 THEN pl¢1)=0 

IF mci THEN 750 

GOSUB 17a 

LOCATE 1,25:PRINT"Player 2 wins" !GOS 


UB 1L950@ 


70 
745 
739 
7a 
7EQ 
TEL 
765 
770 
775 
ve=17) 
7S 


790 


GUTCA 2 

REM 33 o3>>o>> BANE BROEE <eeeeecened 
GOHSUER 1557000 

LOCATE 1,25 

PRINT"Well done,you broke the bank" 
GOSUB 2300@:GOSUR 22@a® 

GOSUB 195a@ 

CLS 

PRINT"PLAYER 12"3mo%¢1) 

IF np=2@ THEN PRINT" PLAYER 2: "3moC2) 
GOSUB 195@@0:GOSUR 19500 

GOTO 10 


11490 FEM 33>>> NUMBER OF PLAYERS <“<4 
11540 MODE 1:WINDOW #3,2d,dO,25,252INE 1 


263 


INK 2,6:BCRDER @:INE @,@:2INE S,id 


115@1 LOCATE 15,12 PRINT" PONTOON" 

11505 PRINT:INPUT "1 or 2 players "grip 
11510 IF np<>1 AND npe ee THEN 11500 
114515 FOR g=1 TO nptpldcqd=1tNEXT 
11520 RETURN 

11990 FEM 32>>>> DEAL CARDS <ieeee¢ 
12000 FOR g=1 TO np 

12905 c1l=CRENDC1)*51>+1 

12015 IF av¢€ci)=@ THEN 12005 
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12020 av¢cl)=a 

12025 plc ¢q,1)>=cl 

12920 NEXT «q 

12035 ci=CRNDC1>*51)+1 

12045 IF av¢cid=@ THEN 12035 

120350 av¢cl1)=a 

120355 bkecl>=cl 

12060 nocCldy=Linoc¢2)=lLinc=1 

12065 RETURN 

12990 REM 32>>> DECODE CARD ¢@eceecee 
13000 sui=pleCq,wod/13icar=plccq,w) MOD 1 

SIF car=@ THEN car=13 

13005 IF SUL THEN suit=1 

13010 IF suisti THEN suit=2 

12015 IF suite THEN suit=3 

12020 IF suits THEN suit=e4 

13025 RETURN 

13490 REM 33>>>> DRAW SCREEN “e4eceee 
250@ LOCATE 1,3:PRINT "BANE" ,"PLAYER 1" 
s'IF npe=2 THEN PRINT"PLAYER 2" 

125 5 LOCATE 14,21:PRINT"Beti":1F npee T 

HEN LOCATE 27,21°:PRINT"BRete” 


13510 LOCATE 1,22:°:PRINT"£"=FLOCATE ld,ee: 

PRINT'£L" LOCATE 27,22°PRINT"£" 

13515 LOCATE 1,21°:PRINT"RESERVES" SLOCATE 
1,20: PRINT"Total:":LOCATE 1d4,20:PRINT"T 

otalr":IF np=2 THEN LOCATE 27,20:PRINT"T 

otal:" 

12520 RETURN 

13990 REM 3e3>353>> DRAW HAND <aeeecedd 
149@@O cx=cxCqdicy=cy(q) 

14@Os FOR w=1 TO noccg) 

14d@15 GOSUB 12000 

1ld@2@ GOSUB 1100 

14d@25 cy=cytZicxn=cxt+1LIiNnNexT w 

1d@3@ LOCATE ceCqd-S,22:°PRINT mocq) 
1d@lts RETURN 

idd9@ REM 3333332 STICK aeccdcdd 

1450 FOR q=1 TO npilF pl¢cq)=@ THEN 145 

é& 

Ld2@1 cx Cqd=cexCqo+l 

145@5 LOCATE 1,25° FOR n=1 TO S9iPRINT " 

"Ss tNEXT vr 

1d5@7 LOCATE 1,25:PRINT"PLAYER "sq3" 


"58 
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PRINT CHRE#¢2d95"S"sCHRSC2d)5"TICK "sCHES 
C2495 "T'S CHES C2495 "WIST" 

14505 PRINT " "SCHR (2d) 5 "RH" SCHRS C24) 5 "LU 
IT "sCHR# (2495 "BRB" SCHR (2d) 5 "UY" 

14510 at=INKEY$i a$=UPPERS (as) 2IF ag="S" 

OF ag="T" OF at="BR" OR ag="H" THEN idSil 
ELSE GOTO 14516 

WdSido cxE cn Cqdicy=cyCqo+C2enoccg)) 

14512 IF at="B" THEN GOTO =@aa0 

14515 IF ag="G" THEN END 

14515 IF a$="S" AND sc€q)215 THEN GOSUB 
L5@@Oicx=cxt+1:GOTO 1dh26 

14520 IF at="T" THEN GOSUB 135500! cx=cx+l 
Pex CGQpecxC qth 

14523 GOSUB 1L&a0m 

ldS2d IF sc€q>e21 THEN LOCATE cc(q),202P 

RINT" BUST" 2 GOTO 14526 

143525 IF noceqoee5 THEN 14510 

14526 NEXT gq 

1d530 RETURN 

14990 REM 

1500 GOSUB 18@@@!:LOCATE cc€q),20:PRINT" 

"SLOCATE cce€q),2@:PRINT scCq) tt RETURN 

15d9Q REM FORRES TWIST cieddedcd’ 
15500 c=CRNDC1)*¥519+12°1F av¢c)=@ THEN 15 

SOOtaVC C=O noc qr»=nacCq)+i 

15510 ple cq,nocdq)2=ciw=noc (gq) !GOSUR 130 

@O@2GOSUB L1@O9@:RETURN 

15990 REM +>3>>>> PLACE BETS “teed ad 
16490®@ LOCATE 2,22:°PRINT mctFOR q=1 TO np 


16001 IF pl¢q>=@ THEN 1620 

16@@5 LOCATE 1,25:FO0R n=1 TO S9:PRINT" " 
;*NEXT vn 

16@1@ LOCATE 1,25°PRINT"PLAYER "jsq5 "Your 
het (£) "3 

16@11 INPUT #3,beCqotIF be Cqoei1 THEN 16 
OOS 

164012 IF hecq>)>mo¢q>) THEN 16005 

164@15 LOCATE ccCq),21°PRINT hecq) 

164@16 LOCATE cc €q),22°PRINT" i! 

16017 moCq)=moCq)-hecq) 

16@1& LOCATE ccCq)-d,22:5 PRINT" "SLOCAT 
E cce€q)-S,22:2:PREINT mocq) 

164020 NEXT gq 
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1640d4@ 
164490 
16500 
16505 
164510 
16515 
143520 
16525 
17@35 
1720 
173505 
17510 
17379®@ 
15000 


1200S 


FE TUPIN 

REM 323> DEAL ANOTHER CARD 
c=CRNDC1)*31)9+1 

IF av¢c)=@ THEN 16500 

ple Cy, noccdqd+1 =ctav¢ c= 
noceqd=naccqI+1 

w=nocdq) 'GOSUBR 12@@O@:GOSUB 1140 
FE TLIFIN 

RETURN 

GOSUB 1aa@a@ 

IF sc€q)=21 THEN END 

RETURN 

REM 3o>>>> PLAYER ’S SCORE <a28ca2 
scCqd=O@iacH@iFOoR z=1 TO noc¢q)twez 


GUSUB 13@@@:IF FIGHT#$ (pact (suit,ca 


r),2.=" EK" OR RIGHT#$(pacé(suit,car),2>=" 
GH" CR RIGHT#$# (pact (suit,car),2)=" J" THE 
N scCqd=scCqo+19 


1301 


EN ac= 


15015 


IF RIGHT#(pacé(suit,car),2)=" A'TH 
act1i:GoToa 18020 
scCqd=scCq 2 +VALCRIGHTS(pacé(suit,c 


ar) ,2)) 


1LS02@ 
13021 


cc{q), 


L35025 
S1i7@ 
13200 


1LE202 


NEXT ztIF ac#® THEN GOSUEB 1200 
LOCATE cc€4),20:PRINT" "SLOICATE 
Z2@:PRINT sc¢q) 

RETURN 

REM 3>>>> ACE IN HAND “eececade 
FOR r=1 TO ac 

IF scCqoti1ie21 THEN scCqd=scecq dtl 


ELSE sc€qd=scCqot+ll 


1s20d4 
135205 


1700 


NEXT + 
GOTO 15021 
LOCATE 1,25:FOR a=1 TO S9:PRINT" " 


s* NEXT atRE TURN 


sie bell /2) 
193790 
ZOODD 
ZO0Od 
ZOOOE 
ZO01@ 
ZOOL1 
SOO1LZ 
ZOOS 
20014 


FOR t=1 TO S3@@@:INEXT t? RETURN 
REM 33 3>>>23> BUY faee Lode 
IF moCqdt#hecq) THEN 1dS23 
heCqy=hecq *Z 

moCqd=moCq -hecqy/e 

GOSUB 15500 

LOCATE cc(€q),21:PRINT" ” 

LOCATE cc€q),21°PRINT becy) 
LOCATE ccCq)-S, 22: PRINT" as 
LOCATE ccc q)-S,22:PRINT mocq) 
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ZOO2ZO cHecxtlicxnCqyecncqg+l 
FOO2ZS GOTO 14513 

21990 FEM 33>>2> END GF GAME fas 
229000 GOSUB poe RAGE 1, 25:PRINT“ALI 
Player’s money gone" 

220@1 FOR so=100@ Tl 50 STEP 53 

22002 SQUND 1,50,2!NEXT so 

22008 GOSUB 195 OO: GAaToO 1@ 

22990 REM 333332 WIN SOUND feccedcae sg 
23000 FOR so=3@@ Tl 10@ STEP -194 

259005 SOUND 1,50,1 

223010 NEXT so 

25015 RETURN 

23490 REM 3oo33o> LOSE SOUND <<icccdae 
23500 SOUND 1,200,20 

23505 SOUND 1,9,14 

S10 SOUND 2 S00, da 

SSS15 RETURN 


Now 'MERGE’? the CARD CORE’? routine.» « -« 


Nothing for a Pair 


Here is the computer version of the card game featured in a well 
known TV programme. 

Each player starts with £150 and eleven cards are dealt out face 
down. 

The first is turned over and a bet is requested. The bet can be 
anything up to the player’s total holding. When the bet has been 
placed, ‘higher’ or ‘lower’ will be requested. If this is correct then the 
bet is paid evens. If the guess is wrong or the card is the same value 
then the stake for that card is lost. This then continues until all the 
cards have been turned and a new game can then be played. 

The ‘High Score’ subroutine should be merged with this program to 
provide another competitive dimension or simply to record how well 
you perform from one game to the next. 

Since this game shares many lines with the Pontoon listing, these 
have not been re-listed. To complete entry of the game the ‘Card 
Core’ should be loaded first and then the additional lines for Hi-Lo 


can bee 
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ntered. The ‘Card Core’ is also required for the next game, so 


do not rub over it! 


POG tl pie 


ar 


wi 


1@ 


REM <4 HI-LO ANDY 7/7 JIM 

FEM 

DIM pacSe) ,avese)  pacé(a,1359,bcc1li) 
DIM cx¢1ld,cy¢11) 

hi=@i gam$="Hi-Lo"taddr=2d999 

BORDER @ 

SYMBOL AFTER 223 

GOSUB 17000 

MODE L:2INK 1,26:INK 2,6:2INE 3,145 INE 


a,@ 


11 
12 
1s 
2 


22 


mo 
rd 


wo 
Lt & 


_ 
of 


mee 
S 
~~ 
< 


WINDOW #3,32,d0, 25,25 

PEN 1 

LOCATE id,17:°PRINT"HI ~ Lo" 
GUSUB 10000 
GOSUR 10500 
GOSUB 11500 

LOCATE 11,19: PRINT"Stake:" 
LICATE 11,2@:PRINT"Total:" 
LOCATE 27,17:2:PRINT"Hi-score" 
tot=1590 

he=@ 
GOSUB 13500 
GOSUBR 1d50® 

c=1 

cCx=cx(cdicy=cy(c) 
GOSUB 12350@ 

IF c=11 THEN 25000 
ple¢cl,loS=heC edt y=1 iwel 
GOSUB 120@@:GOSUR 114@o 
GOSUB 14000 
GOSUER 15@oo 
GOSUB 13500 
cx=cxCctldicy=cycCct+i) 
plecil,lo=beCetl> ?ca=car 
q=liw=1:iGOSuk 1300a@ 

GOUSUB 11a 
= IF carsca AND a#="H" THEN 1650@:G0TC 


ma WS 


q 


7@ 
110 IF car®ca AND a#="L" THEN 1650@:GO0TC 
79 


11 


12 


@ GOTO 76 


= GOTC 16400@ 
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11490 REM 33>>>>> DRAW CARDS <ceedacdee 
11540 RESTORE 11525:F0R a=1 TO 11 
11505 READ cx(ad,cya? 

11506 cx=cxCadicy=cy(a)d 

11519 GOSUEB 11200 

11515 NEXT a 

11520 RETURN 


11525 DATA 2,1,19,1,18,1,26,1,3d,1 
11530 DATA 2,97,19,9,15,97,26,9,34,%9 


11535 DATA 2,17 

12990 REM 3o>>>> DECODE CARD <<ecdcdes 
134000 sui=plceCqywo/lsicar=pleccq,w) MOD 1 
StIF car=@ THEN car=13 

13005 IF suist@ THEN suit=1 

1201 IF suiti THEN suit= 

13015 IF suite THEN suit=2 

13020 IF suit3 THEN suit=d 

12025 RETURN 

13490 REM 32> PRINT HI,TOTAL, ota ead 
1320@ LOCATE 17,17: PRINT " 

Sa@1 LOCATE 17,19:PRINT ke 

250d LOCATE 17, 20!PRINT " " 

13505 LOCATE 17,2@:PRINT tot 

13509 LOCATE 25,18: PRINT " " 

1SS1i@ LOCATE 2E,15:2PRINT hi 

133515 RETURN 

12990 REM *>>>>2>> PLACE BETS ¢aceaddge 
1d@0@ LOCATE 15,24: PRINT"You have £"5tot 
ld@@i LOCATE 15,25:PRINT"What is your he 
t u 

1d@@S INPUT #3,he 

149190 IF he<1 OR bettot THEN 14005 
14@15 tot=tot-he:GOSUER 12350 

1d@20 RETURN 

ldd9® REM 32>> GENERATE CARDS <<<eee4 
1450® FOR a=1 TO 11 

14505 c=H=INTCRNDC19*#5194+1 

14510 IF av¢c)=@ THEN 145905 

ldBisS beCad=pacc) 

14520 avi c)=a 

1dS25 NEXT a 

145350 RETURN 

14990 REM 32> >> HIGHER / LOWER <<<ee<¢ 
1200 LOCATE 15,25:FOrR b=1 TO 25:PRINT" 


Hi-Lo 109 


"ssNEXT & 

15@@1 LOCATE 15,24:FOR a=1 TO 2@:PRINT" 
“SsENEXT A&A 

150@S LOCATE 15,25:PRINT CHE$ (C24) 35"H"sCH 
R$C2d);5"igher / "jSCHES¢2d> 5 "L"sCHRS C24 > 5 
“ower" 

15010 aS=INKEY$? a$=UPPERS (Cas) 

15@15 IF atee"H" AND a$eie"L" THEN 15010 
15020 RETURN 

S990 FEM 3223S thy LOSE <add cecd dd 
164000 SOUND 1,2400,20:SOUND 1,0,10 

16010 SOUND 1,500,d® 

164420 IF tot<1 THEN 2464000 

164425 c=c+1: GOTO 70 

16490 Poe WIN Sede edded ede 
162500 FoR: s0=50@ TO 2@@ STEP -10 

164205 SCOLIND 1,50,2:5NEXT so 

16510 tot=tottherks 

16520 c=c+1:GOTO 74 

17@S5 SYMBOL 226,556,556, 25d, 25d ,25d,16, 56 
Ae) 

17090 SYMBUL 227,16,56,12d,25d ,12d,56,16 
a 

17095 SYMBCL 229,108,25d,25d,25d,12d,56, 
14,0 

171@@ SYMBOL 229,16,56,12d,250, 25d ,16,56 
12 

17105 MEMORY 24999: GOSUB 29500 

17110 RETURN 

19500 FOR t=1 TO S@@@INEXT ti RETURN 
20990 REM >93>%>> HIGH SCORES “<<<e2edd<< 
25000 IF totshi THEN hi=tot 

25005 sc=tot:GASUuR £0000 

25010 GOTC 19 

25990 REM 3o5>2>> NO MONEY LEFT Legg 
26000 LOCATE 15,25:FOR a=1 TO 25:PRINT" 
"stNEXT a 

2600S LOCATE 15,25°PRINT "Run out of mon 
ey !" 

26010 GOSUH 195@@2:GCTO 1a 


Now *MERGE’ the *’INKEYS’ , the 


*HIGH SCORE’ and the "CARD CURE’. «. . 


5 
Concentration 


Find the Pair 


This deceptively simple game requires a good memory and of course 
great concentration. 

Each player has one turn to select two cards. If they match then 
they score and are removed from the screen. The next player then 
tries to find a pair until all the cards are gone. The winner is the one 
who correctly matched the most pairs. 

In some card versions of this game a successful player is allowed to 
turn over another two cards. However, the game plays better in this 
12-card version if one player cannot clear the decks so quickly. 

Since the game requires a pack of ‘micro cards’ together with the 
shuffle routines, these can be merged from the earlier listing. Once 
again you will have a very comprehensive program which makes full 
use of the memory, without having to type in more than is necessary. 

Here is a money raising tip. Those readers who are involved in 
raising cash for charities or school funds may like to consider how the 
micro can help. Concentration could be used as a fund raiser, just as 
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many other programs featured in the book can. Simply set up your 
computer and charge visitors for the privilege of pressing the buttons! 


1 FEM << CONCENTRATION ANDY/JIM 32> 
= FEM 

10 CLEAR 

20 DIM pac#C(S,13),ccecS),scce) 

3@ DIM paCS2> ,avcaZ) 

d@ DIM cx¢1l2Z),cy¢12) 

32@ DIM caClZ)>,bccle) 

6é@ DIM ple¢1,2)>,acc1ie) 

7@ SYMBOL AFTER 223 

20 GOSUR 17000 

70 CLS:GOSUB 10000 

10 INK @,@:BRORDER © 

1190 sc(1)=@:5cC2)=@ 

120 GOSUB 10000 

130 GOSUE 14500 

135 PAPER @:PEN 3 

1d® GOSUB 11500 

156 GOSUB 12000 

1640 FOR a=1 TO Ll2@tacCad=1:INEXT a 
17@ WINDOW #3,1¢8,d@, 25,25 

180 p=1 

170 GOSUEB 1dta@o 

200 GUSUB 1350 

210 GOTU 1da@oo 

220 IF p=l THEN pee ELSE pHl 

230 GOTA 190 

11295 REM }o>boo>> ERASE CARD <adeccead 
11300 LOCATE cx-l,cy 

11305 FOR y=1 TO 7 

11310 LOCATE cx-1l,cyt+ty-1:PRINT " * 
11315 NEXT y 

11320 RETURN 

11id30 FEM 22o>2>> GENERATE CARDS <aiceede 
115400 RESTORE 1157@:FOFR a=1 TO 12 
11501 cacad=1INEXT a 

11504 FOR a=1 TO 12 STEP & 

11505 FREAD ci,cz 

11519 c=CFND(1)*119+1 

11515 IF cac¢c)=@ THEN 1151 

11520 beCed=clicacc)=0 

11525 c=CRNDC1i)*119+1 

11530 IF ca¢c)=@ THEN 11525 
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115355 


toed et el 


11540 
11505 
11550 

115 Sas 
11540 
11570 
11550 
11i5ea8 
11570 
11990 
12400 
12004 
12005 
12010 
12011 
12015 
120290 
12025 
L2030 
12035 
12040 
12970 
L240 


beCcjFcZicaccy=a 

NEXT a 

FOR a=1 TO is 

FREAD cxCad, cya) 

NEXT a 

FE TLIFIN 

DATA 1,14,2,15,23,16,4,17,5,15,6,19 
DATA 2 4, 19,1, is.1,26.1 
DATA 2,7,19,9,19,9,26,7 
DATA 217,10,17, 18,17, 26,17 
REM 323o2>>> DRAW SCREEN «feeedee 
MODE L:INK 1,26:INEK 2,6:INE 2,14 
For a=1i1 TO 12 

cx=cxCadicy=cyCa) 

GOSUB 11200 

LOCATE cxCadt1l,ycyCad+72PRINT a 
NEXT a 

LOCATE S2,3:PRINT"Score i" 

LOCATE 33,6:PRINT "Score 2" 

LOCATE S2,15:PRINT "Player 1" 
LOCATE S2,17:PRINT "Player =" 

RE TURN 

REM 32 >>>>o> DECODE CARD <aeeedade 
su=pleCq,wo/1lSicar=plcecq,w> MOD 13 


> 


=IF car=® THEN car=13 


13005 
12010 
13015 
120290 


IF sut@ THEN suit=1 
IF sutil THEN suit=2 
IF sus2 THEN suit=3 
IF sut3 THEN suit=d 


124625 RETURN 

13490 FEM 33222232 INPUT NUMBER <<acees 
1350@ LOCATE 1,25:FOR a=1 TO S@:2PRINT " 
"“SiNEXT a 

13504 LOCATE 1,25: PRINT"Enter first No." 
: 

13505 INPUT #3,n1 

13510 IF nisi OF mi>i2 THEN 13505 

1SS11 IF ac¢nid=@ THEN 13505 

13515 plecl,toshctnidtq=1iw=l 

S520 GOSUE 1300@tcx=cx (nid tcy=cy¢ni) 


13325 
LS53@ 
Wg 
9 

ISS35 


13540 


GOSUB 11000 
LOCATE 1,25:PRINT"Enter second No. 


INPUT #3 ,n2 
IF ne@ei OR naeia THEN 12535 
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13S5d1 IF ac(n2#)=@ THEN 12535 

13545 plecl,2>=heCn2)tq=liw=2 

132550 GOSUB 1i@@@icn=cxCnZ) i cy=cy(nzZ) 
13555 GOSUBR 11900 

13560 RETIN 

13990 FEM 32>3>>>2> CHECK PAIR <e4eecece4 
14000 q=Liw=1:GOSUB 13000 

1d@OS cal=cariq=iliw=Z:GUSUR 13000 

149190 caZ=car 

14@15 IF cail=cazZ THEN 1500®@ 

14620 LOCATE 1,25:FOR a=1 TO 3@:PRINT" " 
s*NEXT a 

1d@25 LOCATE 1,25°:PRINT "Cards do not ma 
tch" 

1dO@20 GOSUR 1950 

1d@35 cxHEcx(nldtcy=cy¢nl> 

ld@d@ GOSUB L112O@Olcu=cx(nZ) i cy=cy(nZ) 
1d@d5 GOSUB 112@@0:°G0TO 22a 

ldd90O REM 3o>>> PRINT SCORES <iccccdee 
14500 PEN LILOCATE 33,a:PRINT sc¢1) 
ldS05 LOCATE 32,7:PRINT sccZ) 

143510 IF p=i THEN LOCATE 32,15:PAPER 1:P 
EN @:PRINT "Player 1":5PEN 1:PAPER @:LOCA 
TE 32,17:PRINT "Player =" 

IdS15 IF p=2 THEN LOCATE 32,17:PAPER 1:P 
EN @:PRINT "Player 2":PEN 1!PAPER @:LIiCcA 
TE S2,15:PRINT "Player 1" 

14520 RETURN 

14990 REM 3330532 >> PAIR FOUND <<seeede 
15400 LOCATE 1,25:F0FR a=1 TO 2@:PRINT " 
"ssNEXT a 

15@@S LOCATE 1,25:PRINT "Pair found" 
15406 actn1l)=Orac(nZ)=a 

15007 FUR so=S@O@ TO 1@®@ STEP ~—1@:SCUND 1 
»SO,1L2NEXT so 

15@10 GOSUB 17500 

1S@1i5 cx=ex(nldtcy=cy (nl) 

12@20 GOSUB 11350@0%cn=cx(nZ> i cy=cy(nZ) 
15025 GOSUB 112@0:isc(Cpo=sceCpItS 

15030 IF scecldot+scC2)=30@ THEN 15500 

15@35 GOTO 220 

15490 REM 3222322 END OF GAME <aeecaced 
155@@ CLS:PEN 1 

15505 PRINT:PRINT "Player 1 score?:"3sccl 
») 
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1551 PRINT:PRINT "Player 2 scorei"jsc¢2 
») 

15515 PRINT:PRINT:LOCATE S,1@:PRINT "Pre 
ss ’SPACE’ for another game," 

1S82@ LOCATE 140,12:PRINT "or 7°? to quit 


{S525 a$g=INKEYS 

12530 IF at=" " THEN 10 

15535 IF ag="GQ" CF at="q" THEN END 
15540 GOTO 1LS525 

17@a5 RETURN 

19500 FOR t=1 TO S@O@MINEXT ti RETURN 


Now *MERGE’ the °CAFRD CORE’? routine. « - 


16 
Micro Mind 


Colour Your Reasoning 


Versions of this well known and widely enjoyed game can be found 
on all microcomputers. In writing this implementation of the game, 
care has been taken to produce a good looking layout that makes 
play enjoyable. 

The object of the game is to work out what the secret 6-colour 
combination is, by placing coloured markers in a row. 

The Amstrad will then indicate how accurate the placing was using 
little faces: 


A happy face indicates the right colour, right place. 
A sad face indicates the wrong colour, wrong place. 
A straight face indicates the right colour, wrong place. 


A joystick or the cursor pad is used to select the colours by moving 
an arrow to the colour required. The fire button or copy key then 
places it. The next ones are then entered in the same manner until the 
row is full and the result is shown. 

There are ten chances to guess the correct sequence before each 
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game ends. The computer will then display the correct combination 
at the top of the screen. This will remain in view to allow analysis of 
where you want wrong! Pressing Y or N either starts a new game or 
ends the session. 

The game can be played competitively by each person aiming to 
achieve a lower number of lines to work out the combinations. 


1@ REM <<< MICRCMIND ANDY/JIM 

is FEM 

2@ INPUT "COLOUR CY/N) #" as 

22 at=UPPERS (at) 

25 IF at="Y" THEN gr=® ELSE gr=1 

30 REM 

Si MEMORY Sd99Ot addr=3d999 

32 GOSUR 27500 

35 GOSUB 1150 

S6& cxeSicy=25 

37 PEN 1 

40 FOR a=1 To a 

45 LOCATE (a¥39-2,2:°PRINT CHES( 142) 5 CHES 
(143) 

46 NEXT a 

2@ neliFOR y=d TO 22 STEP Z2tELUCATE 1l,y:F 
OF x=1 TO 9 STEP 3:PRINT CHR$( 143) 5 CHR S¢ 
23295" "3 SNEXT xt PRINT CHR (1d) 3 CHRS (2S 
2) y2nHnt+LINExT y 

ao try=1 

640 GOSUB 1400@ 

65 GOSUR 1@5a@ 

7% GOSUB 125ao@ 

72 IF at="YYYY" THEN 1400@ 

73 af="" 

75 try=trytitIF try=11 THEN 12300@ ELSE G 
OT 65 

797d9 END 

9990 REM 32> PICK RANDOM SEQUENCE <<< 
19000 FOR pla=1i Tod 

10@@@S n=INTCRND(1)#*4d9+2 

1900160 nncCplad=n 

1M@@1iS NEXT pla 

16020 RETURN 

19490 REM 33323 INPUT COLOURS <<<dee 
193500 IF gr=1 THEN GOTO 16502 ELSE LUCAT 
E 3,24 

1@5@01 PEN Z:PRINT CHR#¢(143)3:2PEN 3: PRINT 
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CHRS(1d3952PEN Gd: PRINT CHR$(14d3)5:PEN 5 
=PRINT CHR$ (143); !PEN 6:PRINT CHRS¢143) 5 
*PEN 7:PRINT CHR$(143):GOTO 10505 

1@3@2 LOCATE 3,24:PEN 2EPRINT CHR ¢3d)55 
PEN S:PRINT CHR$(35)52:PEN 4:PRINT CHRE#¢3 
6G) 5°PEN StPRINT CHR#¢(37);:PEN 6&:PRINT CH 
R$¢33952PEN 7:PRINT CHR$(¢ 39) 

10505 tx=1 

105@7 cy=25 

1@51@ LOCATE cxu,ycy:PRINT "“"iFarR t= TO 
1QM=NEXT t 

1@Si5 LOCATE cx,cysPRINT " " 

10520 GOSUB 23700 

1@S25 IF le=1 AND cx?3 THEN cx=cx-l 
10530 IF ri=il AND cx THEN cx=cxtl 
1@S35 IF fi=1 THEN 1060@ 

103540 GOTO 10510 

19600 pe=cx-1 

196405 LOCATE tx,try#2Z+2:PEN petiIF gr=1 T 
HEN PRINT CHR#(S2+pe) ELSE PRINT CHES (C23 
3) 

190610 tx=txt+3ipectx/3)=pe 

14615 IF tx=15 THEN RETURN ELSE GOTO 105 
19 

11d90 FEM 332>2>>> DRAW HEAD <<ececedede 
11495 SYMBOL AFTER 223 

11560 MODE @:INK 1,24:INK 2,11:INk 3,18: 
INE d,2d:5INK S,26:INk 6&,&:INE 7,7 

1i5@1 PEN 1 

11502 PEN 6G?tLOCATE 2,1:°:PRINT"MICRCMIND": 
PEN 1 


oo td 


11505 MOVE S80, 502DRAW 260,110 

11510 DRAW 605,180: DRAW 615,220:DFRAW 615 
, 250 

11520 DRAW 605, 290:DRAW SS5,S20:DRAW 4c 
7029 

11525 DRAW diS,2970°DRAW 295,250: DRAW S65 
7200 

11530 DRAW S75,195 DRAW 390,190: DRAW doe 
3178 


11535 DRAW 395,165:DRAW 4@0,16@:DRAW 39S 
,1SSIDRAW dag, 15@ 

115d DRAW 400,1d5:DRAW 395,1d@:DRAW 395 
,130 

115d5 DRAW dO@,125:DRAW d15,12@:DRAW 425 
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11 

11550 DRAW A50,95:DEAW dO@s,SO:MOVE did,2 
SO@:DRAW 430,245: DRAW 419, 2d 

11555 PEN 2'LOCATE 1i5,1@:PRINT CHR$¢C1d2) 
PEN StLOCATE 146,9:PRINT CHR$( 143) 52PEN 
diPRINT CHE$C1idS):PEN SIlLocATE 1¢4,1@:PRI 
NT CHR#(1d3):PEN 6 SLOCATE 18,11:PRINT CH 
R$ C1d3) 

11560 PEN 7!:LOCATE 17,12:PRINT CHE $¢ 145) 
*PEN SILOCATE 16,13:PRINT CHE$(1d3):2PEN 
TSSLaCcATE 1464,15°PRINT CHE$¢1d3) 

115465 SYMBOL SSO, 124,255 ,L535 255,255,129 
gece, LZ& 

113576 RETURN 

11990 REM =3> PUT PLAYERS COLOUR UP <<< 
12d90 REM *2> CHECK THROUGH SEGUENCE << 
12500 a$=""BtxSEZEPEN 1 

ene FOF x=1 TO d 

1251 IF pecxd=nn¢x> THEN LOCATE tx,try* 
peo PRINT CHR$ (S24) 52: at=agt+"V" ELSE LOCA 
TE tx,try*Z+2:PRINT CHES (225) 5 i ag=agt"X" 
12511 teetx+3 

Peres NEXT 

S20 tx=2 

or do=@ 

12525 FOR x=1 TO 

123526 IF MID# asyx,19="Y" THEN SCILIND 1,1 
00 ,10:GOTC 1255@ 

12530 IF pecxd=nn¢1l> AND LEFT#¢Cat,1>="X" 
THEN LOCATE tx,try*S+2:PRINT CHES C250): 
SQUND 1,30@,1@:do=1 

2535 IF pecxd=rnn€2) AND MID$(as,2,1)="X 
" THEN LOCATE tx,try*2+2:PRINT CHES (250) 
=SOUND 1,2040,190:do=1 

12540 IF pecxd=nn¢S) AND MID#$(as,S,1)="X 
" THEN LOCATE tx,try#2+2:PRINT CHR$ (250) 
*SQUND 1,300,102 do=1 

125405 IF pecxd=nn¢4) AND RIGHT$(at,1)9="X 
" THEN LOCATE tx,try*2+2:PRINT CHR (25 1’) 
=SOUND 1,300,192 do=1 

12546 IF do=@ THEN SOUND 1,450,1@ 

125350 tx=txtS5SOQUND 1,90,52NEXT x 

12555 RETURN 

12990 REM #3222 LOSING SEQUENCE «<<< 
12000 FOR a=1 To da 
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12@@SR PEN mnCad 

12@1@ LOCATE Ca®¥S)-2,2°PRINT CHES (1439 5C 
HRC 1dS) 

13@15 NEXT a 

13025 LOCATE L3,1°PRINT "Sorry" 

12026 FOR so=10@ TO S@@ STEP 1@:SOUND 1, 
$0,3°tNEXT so 

13030 GOTO 14021 

12990 REM 33522 WINNING SEQUENCE <<<. 
1dOOo@ FOR a=1 TO d 

1d@@S PEN rmn¢ad 

1d@1@ LOCATE Ca®*S>-2,2°PRINT CHR C1d3)5C 
HR#¢ 143) 

1ld@15 NEXT a 

ld@2Z@ LOCATE 1id,1:PRINT "Did it"tLOCATE 
ld, S°PRINT"in "stry 

Ld@21 LOCATE 14,23°PRINT"Again"!tLOCATE 1 
S,2d5PRINT"¢CY 7 No" 

ld@2Zez FOR a=1 TO 2 

1d@Z3 FOR so=S0@ TM 19@ STEP -S@:SOQUND 1 
,SO0,c°NEXT so 

1d@sd FOR so=10@ TO S@@ STEP S@ESQUND 1, 
SsO,a*NEXT sotNEXT a 

14@25 at=INKEYS 

14030 IF a$="Y" OR at="y" THEN 35 

1d@2S5 IF ag="N" CR ag="n" THEN CLS?END 
ld@d@ GOTO Lldees 


* 
ra 


Now 'MERGE? the "INEEYS®? routine. «. - 


17 
O’Grady Says 


O'Grady Says: Type This In 


As far as I know this is the world’s first implementation of the well 
known game, sometimes also known as Simon Says. 

This program can be most helpful in teaching the concept of left 
and right, but be warned, as it stands the program means its left or 
right, not yours! 

You start each game with just one point. The speech bubble will 
then announce the action required together with the name of the 
person giving the order. If O’Grady says ‘do it’ then you do it fast! If 
O’Riley says ‘do it’ then you do nor! The little chap at the top follows 
all commands. 

There are four possible actions which you may be asked to do. Up 
and Down are actioned using the up or down cursor or joystick as 
normal. Left or Right are obtained using the respective key in 
relation to the on-screen character. This means that pressing the left 
cursor will actually lift up the chap’s right arm. 

This swap has been incorporated to provide more of a mental 
challenge. It can be quite a struggle to work out whichis left, which is 
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right and of course whether O'Grady said ‘do it’. Play the game and 
you will see what I mean. 

Speedy mental processing is important in O’Grady Says or lack of 
action may be taken as intentional. This could mean that you lose 
points or, if you are lucky, doing nothing could be just the right 
response. 


1 REM < O'Grady says #°> ISSI/JIM/ANDY: 
2 REM 

100 MEMORY 34990 

11@ addr=34d999:GOSUB 29500 

£00 GOUSUB 2@0aaea 

TOS scH=Oirtu=@ 

S1Q@ REM 3o>>>>>> MAIN LOOP eeededcade 
S15 og=INTCRNDC1)*2)+1 

S16 tu=tutrld 

S20 po=INTCRND¢(1)*d4)+1 

S21 CLS #1 

S22 GOSUB 21@d@:GOSUR 219@60@:GNSUB Z1lid@: 

GOSUE 21160 

S25 IF og=1 THEN PEN #1,4° PRINT #1,"0°GE 

ADY SAYS, 

S30 IF og=2 THEN PEN #1,4° PRINT #1,"C°RI 
LEY SAYS, 

a3S IF po=i THEN PEN #1,5:5 PRINT #1 SPRINT 
#1, "MOVE UP": GOSUB 21900:GOUSUB 21 AZO 
Sd@ IF po=2 THEN PEN #1,5:PRINT #1:PRINT 
#1," MOVE DOWN" =GOSUB 21@6@:GOSUBR 2 
14d@ 

Sd5 IF po=3S THEN PEN #1,5:PRINT #1:°PRINT 
#1,"UP RIGHT" :GOSUB 214@O@:GNSUBR 21960 
S50 IF po=d THEN PEN #1,5:PRINT #1:PRINT 

#1,"UP LEFT": GOSUB 21@20:GOSUB 214d0 
S55 t=@ 
360 GOSUB 2700 
S65 IF letrituptdo=0 THEN t=t+1itIF t=d@ 
THEN 610 ELSE GOTO 36 
S7@ IF ri=i THEN GOSUR 2112@:GOSUB Zlid@ 
S75 IF le=1 THEN GOSUB 2110@:GOSUBR 21160 
S@ IF up=1i THEN GOSUB 2119@:GUSUB 2112o 
S35 IF do=1 THEN GOSUBR 2114d0:GOSUB 21160 
S90 IF po=i AND up=1 AND og=1 THEN 20@@ 
S95 IF po=2 AND do=1 AND og=1 THEN 20@@ 
600 IF bees AND le=1 AND og=1 THEN 200@ 
605 IF =d AND ri=1 AND og=1 THEN 20@® 
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619 IF t=d@ AND og=2 THEN CLS #1:PEN #1, 

&tPRINT #1," WELL DONE ":PEM #1,4:P 

RINT #1,"C°RILEY":PEN #1,6:PRINT #1, "SAT 

D IT tsce= sct+1:GOSUB 250® 

611i IF t=d4@ AND og=2 THEN FOR son=S0@ TO 
19® STEP -3@:SQOUND 1,s0nm,1@:NEXT son:Gnu 

TQ 635 

615 IF og=Z AND letrit+tdotupe -@ THEN CLS 
#1°5PEN #1,6°PRINT #1,"WEONG! "PEN #1,4:P 

RINT #12 PRINT #1,"Q°RILEY":PEN #1,6: PRIN 
T #1°PRINT #1,"SAID IT"isc=sc-1:GOSuUB 2S 

ag 

616 IF og=2 AND letritdotupes@ THEN FOR 
so=10@ TO 2@@ STEP 1@:SMUND 1,so0,32:NEXT 
so:GOTd 625 

6147 IF t=d® AND og=1 THEN CLS #1:PRINT # 
1," OUT OF TIME! "isc=sc-1iGOSuUR 2500 

61S IF t=d@ AND og=1 THEN FOR so=1@0 TU 

20@ STEP 1@:SOUND 1,so,S:NEXT soiGOTO 4&3 

620 CLS #1°PRINT #1°PEN #1,5°PRINT #1,"W 

RONG!" 

621 FOR so=100 TO S@@ STEP S@FSCLIND 1,50 
,L@=ENEXT so 

25 sc=sc-1iIF sci THEN 7@® 

630 GOSUB 2500 

635 FOR t=1 TO 1@@@:INEXT t 

640 GOTO S315 

690 REM *o3>> END CIF GAME <aeeecacddd 

74®@ CLS #2:PEN #2,5:PRINT #2, "BAD LUCE 

you MADE IT THROUGH "sturPRINT #2," Tu 

RNS." 

7OS FOR t=1 TO 2@@@=INEXT t 

719 CLS #1°CLS #2:PEN #2,5:PRINT #2,"POI 

NTS" 

71S MODE @: 
1990 REM 32> 

2900 CLS #1 

29035 FOR so 

O,==NEXT so 

2OM1@ sc=sct1i:GOSuk Z23@@:GUTO 635 

2490 FEM 333>>>> PRINT SCORE <<etededde 

25000 PRINT #2,CHR$(30):PRINT #2:°PRINT #2 
*PEN #2,4:2PRINT #2,5¢ 

2505 RETURN 


SATO Sao 

>>> CORRECT <<ddeceeccde 
PRINT #1, "CORRECT!" 

200 TO 100 STEP -S:SOLIND 1,s 


peaks 
20010 
ZODZO 
ZOOR® 
ZVOdD 
ZOORO® 
ZOWED 
ZOLO® 
Z2OL1® 
20120 
ZOLZO 
ZO1d@ 
ZOLE® 
ZOLE@ 
20170 
ZOLE0 
eats 
202 1 @ 
a) 
20230 
20240 
ZO2EO 
ZOZED 
ZO27O 
ZOBAO 
ZOE ID 
ZOROD 


O35 540 
LZOSO® 
2OR1 
29529 
ZORSO 
295A0 
2OSR0 
SO560 
20270 
20580 
2OR90 
ZOEOD 
20610 
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Le NEE a ae a eR TI Re A cae a 


REM #3333 332337 screen sean aneass 


RESTORE 29000 

Fok n=O TO 15 

READ a 

INK nya 

NEXT 

DATA @,26,5,19,2d,24d,2d,%5 
DATA ©,9,9,9,9,9,4, 7) 

BORDER @! PAPER @:PEN 1:2MQDE ® 
WINDOW #1,2,7,2,19 

WINDOW #2,2,7,14,20 

PAPER: #1,2:PEN #1,5°CLS #1 
PAPER #2,2:PEN #2,3:°:CLS #2 
PLOT 34,3790,5:DRAW 292,270 
DRAW 292,237! DRFAW 30,237 

DEAW 35,230: DRAW 30,252:IDRAW 30, 
PLOT 3@,195:DRAW 292,195 

DRAW 292,77: DRAW 20,77 


DRAW 30@,130°IDRAW 3,202:IDRAW 20,195 


PRINT #2:PRINT #2," POINTS" 
ete eetch ease cae Ny geared etd 
DRAW 530,250,9:DRAW Sda, 260 
PLOT Geo earn Rall 530, Sdo 
DRAW SdO,7652PLOT dS0,250,11 
DEAW d2Q@,25O2DREAW d2@, 260 
PLOT 480,325 :DRAW AZO, Ae 
DRAW 420,565 

PLOT 420,325,8:DRAW 500,290 
DEAW dSO@,25O0:DRAW SOO, 225 
DRAW 490,200 

PLOT d&@, S25, ,1@:DRAW 460,270 
DRAW d80,250:DRAW d60, 225 
DRAW pena 200 

PLOT dia ,150,5:DRAW ds 0,7 
DEAW ES@ slity 1S:DFAW da, 

PLOT 480,150:DRAW 530, a 
DRAW S40, 1902 PLOT 420,75 ,15 
DRAW 430,75 :DRAW 420,35 

PLAT de@,15@:DRAW ABO, 165) 
DRAW 420, 1°70 

PLOT d&0,15@,12: DRAW 5So@,115 
DRAW 430,75! DRAW 5aa, 50 

DRAW 490,25 

PLOT d80,150,1d:DRAW 460,115 
DEAW df0@,75:DRAW 460,50 
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20620 DRAW 470,25 
20630 TAG #5:PLOT 0,0,5 

20640 MOVE d66,3dd: PRINT #3,CHRS(CZ24) ; 
20650 MOVE d6G,169:PRINT #5, CHRS& C220); 
20660 PLOT @,@,@ 

20670 GOSUE 21@d@:GOSLIB 21060 

20680 GOSUB 211d@:GOSUB 21160 

ZO75O RETURN 

21@0@ INK 11,24:INK 10,0 

21019 RETURN 

21020 INK 9,24:INK 3, 

21030 RETURN 

2104@ INK 1@,Zd:INK 11, 

Z1050 RETURN 

21060 INK &,Za:INk 9,@ 

21070 RETURN 

2110@ INE 15,Zd:INK 14,@ 

Z1i11@ RETURN 

21120 INK 13,24:INK 12,0 

Z1130 RETURN 

211d@ INK 14,2d:INK 15,0 

21150 RETURN 

21160 INK 12,24tINK 13,0 

21170 RETURN 


Now ‘MERGE’? the ’INKEYS’? routine. « « 


Who's a Pretty. Program? 


Here are four pretty parrots, each a different colour and each holding 
a ‘string’ in his mouth. 

When the program runs the parrots will commence pulling the 
strings in sequence. The first set will consist of only one pull. Then it 
will be your turn to copy the sequence. 

The perches of the birds have been arranged to correspond to the 
arrangement of the cursor keys. Thus by pressing ‘up’ the top bird will 
pull a string, ‘down’ will activate the bottom bird and so on. As usual 
a joystick may be used instead of the cursor pad. 

The computer produces a sequence which starts off simply but gets 
very long. During testing of this program no one was able to 
remember more than a sequence of 25. Amnesia usually sets in at 
around 12. As it stands the longest sequence that the parrots will 
produce is 50 long. If you remember that length then you must have 
some sort of photographic memory - or perhaps you are an android! 

This simple game can be great fun at parties where all sorts of. 
forfeits or penalties may be devised for the losers. 
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2 REM <<<) PARROT ANDY / JIM #3332 
= REM 
S addr=3d9799:GOSUBR 2950 
10 SYMBOL AFTER 223:MODE © 
12 DIM no¢s@) 
12 INK @,@: BORDER @:INK 12,12 
15 GOSUBR 1004@:GOSUR 1450@ 
Za sc=O:hi=0 
30 GOSUB 1250@ 
Sa FOR a=1 TOd 
Zé IF a=i THEN PEN 7 ELSE IF a=2 THEN PE 
N 11 ELSE IF a=3 THEN PEN 14 ELSE PEN 13 
40 GOSUE L11@@@:NEXT a 
SS po=@:CALL &BBOS 
am REM 333>>>>> MAIN LOOP <eindeds 
60 n=INTCREND(1)*3)+4+1 
&2 po=poti 
65 nocpo =n 
66 GOSUB LSS@@:LOCATE 1,22:°PRINT "My tur 
ni" 
7®@ FOR b=l TO po 
= GOSUB 13000 
SO NEXT b&b 
82 CALL &BRBOS 
SS FOR t=1 TO 1@@@:NEXT t 
37 b=1 
S& GOSUB 1S5@@:PEN LIELOCATE 1,22:PRINT " 
Your turn" 
7@ GUSUER 29700® 
9S IF le=1 THEN a=d: SOUND 1,900,102: GUSUE 
ZOOO2PEN 123:GOSUB 1L1S5@O:FOR t=1 TO S00 
=NEXT t 
1@@ IF ri=i THEN a=2:SOQUND 1,400,10:GOSU 
B 1200@0:PEN 11:GOSUB 1150@:FOR t=1 TO Ao 
@eNEXT ¢ 
105 IF up=1 THEN a=1:°SQUND 1,200,1@:GCOSU 
BK 12@00:PEN 7:GOSUB 11500:FOR t=1 To 300 
*=NEXT ¢ 
11@ IF do=i THEN a=3:SQUND 1,600,1@:GO0SU 
B 120@0:PEN 14:GOSUB 11500:FOFR t=1 TO Fo 
@=sNEXT t 
115 IF letrituptdoti THEN F@ 
120 GOSUB 12000 


125 


GOSUB 119090 
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130 IF no¢cb>d=a THEN 121 ELSE 1535 

121 IF b=po THEN GOSUR 135@@:LOCATE 1,22 
*PEN 1:°PRINT "Well done,"jpo0" so far." 
1232 IF b=po THEN FOR t=1 TO L5@@!INEXT t: 
GOSUB 135@0:GOTO 60 

133 b=b+1:GOTa %@ 

135 GOSUB 1350@:PEN 1 

1d@ LOCATE 1,22°PRINT "Wrong sequence" 
lds LOCATE 1,23:PRINT "After"jpo-135" mov 
ements." 

1S@® FOR t=1 TO S@@OINEXT t 

155 GOSUR 13500 

164@ LOCATE 1,22:PRINT "Sequence was" 

165 FOR t=1 TO 1@@@INEXT t 

170 FOR b=i TU po 

175 GOSUB 12000 

18@ NEXT k 

185 GOSUB 1250@ 

19@ LOCATE 1,23:PRINT "Try again." 

195 FOR t=1 TO S@@OINEXT t 

29@ GOSUB 13500 

205 GOTO 35 

9990 REM 3o>e>> CHARACTERS “acececdcade 
10000 SYMBOL 4,16,16,16,16,0,14,21,63 
10@@3 SYMBOL 225,90,9, 258, 126,127,207 ,207, 
207 

10910 SYMBOL 226,9,9,0,%,@,125,125 

19015 SYMBOL 227,63,4d97,d0,5,16,33,35,35 
194020 SYMBOL 225,255 255,250 ,12d,126, 255 
geal SOS 

1O@25 SYMBOL 229,0,9,9,9,0,126& 
19030 SYMBOL 230,3,3,23,3,3,1,1 
1@@35 SYMBOL 231,223 ,191,191,2 
9247, 251 

190@4® SYMBOL 232, 192 ,192,22d,22d,22d,2d0 
72d, 245 

1g@d45 SYMBOL 233,1,9,9,0,56,127,9,9 
100350 SYMBOL 234,253,126,12,2d,4d5,252,0, 
@ 


ee 
a 


VZ,192 


19055 SYMBOL 235, 2d&,120,60,25,14,6,3,0 
19060 SYMBOL 236,63,30,0,0,7,15,9,0 
10065 SYMBOL 237, 24,0,0,0,0,0,0,0 
1007 SYMBOL 23S,7,31,63,127,99,99,127,6 


10@75 SYMBOL 239,1dd, 225,247, 251,139,115 
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Beans 
»251, 255 


1908@ SYMBCL 240,0,25d, 255,255,255, 255, 2 


cc 
aoe 2 to 


1OOS5 SYMBOL 241,3,14, 252,252,246, 240,22 


4,128 
19090 SYMBOL 2427,16,16,16,16, 
19095 SYMBOL gee ee ee 
5,255 


10490 FEM 3s> SET UP VARIABLES 


193500 px €l>=1Oipx(C2dHldipx(S)=6ipx 


) 
11@15 LOCATE px (a) py(adtl 


, 16,16 
,170,% 


Web: 
1MS05 py C1o=Sipy CZ =1Sipy(S=1sipy(do=7 
10510 RETURN 
10990 FEM 32> PRINT UPRIGHT PARRCT 
1190 LOCATE pxeCad py lad 

11410 PRINT CHR (2249 ;CHRS (C225) 5 


CHE (226 


11920 PRINT CHR (C227) 5CHRS (225) ;CHRS C229 


) 
11@25 LOCATE px Cad, py Cart2 


11930 PRINT CHR$¢ 230) sCHRS C231) 5CHRE( 222 


») 
11@35 LOCATE px Cad py (ats 


11494@ PRINT CHR$¢C232) ;CHES( 234d) 5 CHES C: 


») 
114435 RETURN 


1id9@ REM 33> PRINT BRENT DOWN PARROT 


11500 LOCATE pxrCad-l,ypy Cate 


oe hee 


alte! 


11510 PRINT CHES ¢ 238) sCHES C239) 5 CHES (2d 


> 3 CHR (241 
11515 LOCATE peucad-i,py Carts 


11520 PRINT CHR$ (236) j CHES (23d) 5 CHES (237 


») 
11521 LOCATE pxcad pyCadtis PRINT 


2) 


CHES (24 


11822 LOCATE pxCad,pyCadtPRINT CHES (2d2) 


11525 RETURN 


1199@ REM >>>>> BLANK PARROT <<<<< 


120@@ LOCATE px(adypyCad i PRINT " 
12@@5 LOCATE peCad spyCadtit PRINT 


12010 LOCATE px(ad-1,py(ad+Z?PRINT 
12@15 LOCATE pxwcad-lL py(art+S: PRINT 


DOCATE pxCadte ypyCadt+3e PRINT " " 
12@20 RETURN 
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12490 REM 3333222 DRAW SCREEN <¢eceeed 
12500 FOR y=1 TO diPEN 7ILOCATE 10,y:PRI 
NT CHR (242) 2°NEXT y 

12505 FOR y=1 TO 12:PEN 11=2LOCATE tad,y:P 
RINT CHRS¢2d29)2tNEXT y 

12510 FOR y=1 TO id4:5PEN 1d:°LOCATE 6,y:PR 
INT CHES (2d2) NEXT y 

2515 FOR y=1 TO &!PEN 12:LOCATE 3,y:PFI 
NT CHR ¢2d2) NEXT y 

12520 FOR x=1 TO 2@:LOCATE x,1:PEN 155 PR 
INT CHR#(¢2d3)2LOCATE «x,2@2:PEN S:PRINT CH 
RSC 2d5)2NEXT x 

2530 LOCATE 10, 9!PEN 12:PRINT CHES ¢2d3) 
5 CHES (2d 29 5 CHES ( 2d3) 

IS535 LOCATE id,172PRINT CHES (2d3) 5 CHES ¢ 
203) 5 CHR ¢ 243) 

125d0 LUCATE &,19° PRINT CHRS¢C2d3) 5 CHRS (2 
4:3) 5 CHES ¢ 2d3) 

12505 LOCATE Z,11°PRINT CHR (243) 5CHRS C2 
439 ;CHRS (245) 
12550 INE 1a,2d°INk 1LS,1S:INE id, id 
12560 PEN 13:LOCATE 7,24:PRINT "PARROT" 5 
12600 RETURN 
12990 REM o> MAKE SOUND <a<ccag¢ 
134000 IF no¢h>=1 THEN a=1'FGOSUR 12000:PE 
N 7:GOSUB 11500:SOUND 1,200,10:FOR t=1 T 
 S@@INEXT t 

13005 IF noch =2 THEN a=2:GOSUB L2@@@!PE 
N 11:°GOSUB 115@@:SOUND 1,400,10:FOR t=1 
TO S@@tNEXT +t 

1291@ IF no¢ho=3 THEN a=S:GCISUBR 12@@@!PE 
N 14:GOSUB 115@@:SOUND 1,600,10:FOR t=1 
TO S@O@INEXT t¢ 

12015 IF no¢ho=d THEN a=d:GOSUBR 12Q@00!:PE 
N 13:GOSUB 115@@:SOUND 1,800,10:FOR t=1 
TO S@@INEXT t 

13620 GOSUB 120@0:GOSUBR 11000 

13025 RETURN 

13450 REM 

S50@ LOCATE 1,22:°F0R q=1 TQ 2@:2PRINT " 
"SiNEXT 

beoes LOCATE 1,23°FOR q=1 TO 2@:PRINT " 
"StNEXT q 

12510 RETURN 


Now '’MERGE’ the ’INEEYS’? routine. . . 


Ii9 
Pick Man 


An Arcade Gobble 


This is the first of three arcade type games included in this book. Itisa 
variation on a well known theme in which you guide your character 
around a maze eating up the dots as you go. 

Life is never easy in the arcade world and so there are a couple of 
nasties out to eat up the dots before you do. 

To make matters even worse they will kill you if they get you! The 
object of this variant is to pick up as many dots as possible before all 
the dots are gone, without being killed. Once all the dots are gone the 
next screen will be displayed. 

Controls are, as usual, joystick or cursor pad, which change the 
direction of the Pick Man. 

In the hands of a skilled and patient player, incredible high scores 
can be achieved. The ‘High Score’ subroutine can provide a Pick 
Man Hall Of Fame. 


1 RE 
2 RE 
SO” 
1 
S1@ 
aS 2 
S20 


ind 


3 
SO 
AO, 1 
SEO 
1 
SQ 
az, Z 
S70 
Sua @ 
d@,1 
EOD 


&1@ 


7é,1 
Encl @ 
25,52 


=. 
Ss 
~~ 


WVae a. 


co 


* 


sei 
0 t7) 
xn) 
b$=C 
1465 
69+C 
1974 
1OE® 
1090 
120®@ 
15194 


ee ON DRE 


© ¢ 
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M 


ee ee ae ee 


Meeecenes pick man <*> ISSI 2:2 


SYMEQL 240,3,15,63,63,123,1135,241,25 


SYMBOL 241,192,240,252, 252,227,142, 1 


ed 
“Lo 


SYMBOL 242,255, 255,127,127,63,63,15, 


SYMBOL 243,255,255,254, 25d, 2527,2527,2 


92 


SYMBOL 244,3,15,63,63,123,1135,241,25 


SYMBOL 245,192,240, 252, 252,2227,142,1 


25 


SYMBOL 246,255,255, 127,127,63,63,15, 


SYMBOL 247,255,255, 254,254,252, 252,2 


92 


SYMBOL 2d&,3,29,d9,53,65,65,129, 255 


SYMBOL 249,255,129,65,65,33,49,29,3 


SYMECL 250,192,176,1d0,132,1230,130,1 


SS 
SYMBOL 251,255,129,130,130,132,140,1 
F2 
SYMBOL 252,255 ,129,129,129,129,129,1 
5S 


59,9,9,0 


SYMBOL 252 
SYMBOL 25¢ 


- 5 & 
lz, oe LES ,125 ,6d,112, 


SYMBOL 255,2d4@,1d,2,1,1,2,14,24@ 


hi=1O0® 

REM 3333333233 main loop 
GOSUEK 21000 
S$c=@icount=S:1li=3 


GOUSUEB 200002 t$=CHRS(24d0)+CHES 


HRS (24d29+CHR$ (2435) 


a eee 
fede 


C2d1)5 


tis=CHR$( 2dd9+CHR$(2d5) tb1S=CHES (2d 


HF: (247) 
PEN = 
LOCATE 1&,1:2PRINT t#st#3tt 
LOCATE L&,2:°PRINT bts hbts het 
K=EZOty=17 
K1l=Ziyl=dixe=38iys=d 
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2000 GOUSUR 2Paae 

2020 GOSUB 25500 

2@do@ GOSUBR 2200 

2050 IF ¢xi=x AND yil=y) UF Cxe=x AND ye= 
y) THEN dead=1 

2070 IF count?25& THEN GOTO 2dooo 

2080 IF dead=1 THEN GOTO 24500 

2000 GOTO 2000 
19980 REM $3>o> REDS? Screen : 

29000 INK @,@:INE 1L,1S,197°INE 2,6,1621NE 


3420.2 


20005 SPEED INK 4,4 
2O@@1@ PAPER @:PEN 1:MODE 1: BORDER © 
29020 PRINT "SCORE: 0@ 

HIGH! "shit PRINT 
2ZOOS3O we=CHE$( 252594+CHE$ (252) tx S=CHRS$ (Sd5 
I+CHRS$ (250) iv$=CHRS (2539 +CHES C32) 
20@35 yS$=CHR$ (2d9)+CHE$ C2519 2 2$=CHRS (Sad 
2+STRINGS (5, 2529+CHES (255) 
2ZOOAO y$HevGStvGt+vGEi sH$=r$+vGEt+vGsi aG=-CHeS$ (ed 
SO +STRING$ (39, 2529 +CHRES$ (250) 
20030 PRINT af; 
20060 aS=CHR$ C252 )4+5$+wWHtStt+vFt+vFt+twht+s $+ 
CHR (252) 
20070 PRINT at3 i qt=at 

20080 PRINT at; 
20099 aF=CHE$ (252 )+V$+CHES$ (254) +wHtwhtCH 
RS CLIO +vety$+vetz$tvetyF+v$+CHeE S$ ( 2d5) +w 
StwS$t+CHR$ (S55)0+V$4+CHE$ (252) 
20100 PRINT at; 
201190 aF¥=CHRS (S52 0 +rh$+whtstt+s$t+vGtwHtr s+ 
CHR (252) 
20120 PRINT at; 
20130 MID$(a$,&,2)=y$iMID$( ab, 32, 2)=y% 
2901d0 PRINT as; 
2@150 at=wStw$+CHR$ (250) +r $4+xu$4+vGt+z$t+vge 
X$+r$+CHES$ (245) +wh+ws 
2@16@ PRINT ag; 
2917 at=wStwHt+CHR$ (251+ $+wht+sh+vetvg+ 
wHtr$+CHE$ (249) +wt+ws 
20130 PRINT at; 
20190 aS=CHR$ C252) +r $+ xn $+vGtwHtsHt+vG¢vet 
WEtVSE+XS+r$+CHRS ( 2AzZ) 
Z2O20@ PRINT as; 
SQ021@ aG=CHRE (251 )+rd$+wht+vety$t+vG+CHRs$ (2 
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435) +w$+CHE$ (251 >+y4 
20220 a$=a$t+CHR$ (249) +wHt+CHR$ (250) +v$t+ys$ 
+V$+wWH$tr$+CHRS$ C209) 

20230 PRINT a3 
2O2d0 aF=CHRES (SE) +vb+xu$t+vG+wHtr$+wSt+STe lI 
NG$ (6,32) +WStr StwStvStxhtvG 
2O2Z50 PRINT ats 
29260 MIDS Cas ese YEIMID$( as, 36,2 ).=yh 
@® PRINT as; 

SOLO ags= CHR (250) +r$+whtvG+nS4+VG+WS4STR 
ING$ (6, 32) +wHtvStxu$+vStwHtrS+CHES (243) 
20290 PRINT at; 

20300 aG=CHE$(252)4+MID$ (ah, 2,19) +whtvs+ce 
HE C249) +STRINGH CS, ee 
MID$( at, 20,10)+CHRS$ (252 

293140 PRINT ag; 

ZOSZO as=wttwH+CHR$ (250 +vS$t+twHtvGtwhts$t 
VEtVEtWEtVSE+WStVST+CHES (245) +wHtwS 

2O330 PRINT a; 

Z2OSd0 MID$ (as, S, Ld =CHRESCSS1L) IMID$ (Cag, Se, 
1>=CHES$ (24'9) IMID$( at ,3, 2 o=ytiMI Dt at, Sez, 
2) =y 

2QO3350 PRINT at; 

2OSE0 aF=CHE$ (252 9+5¢+whtvG+z$+vGt+wHts $+ 
CHE (252) 

20570 PRINT ats 

SO38O0 agS=qh 


<p 


20390 PRINT at; 
2Od@0 bS$=CHRS$( 245 )+whtwHt+CHR$ (250) 
20410 MID$Cad,4d,6)=bStMID$ (as, 52, 60=bs 
20420 PRINT a$; 

20430 h$=CHRS (249) twHtWS+CHRS (251 ) 

2Odd@ MIDS (asd, 6)=bSIMID$ (as, 32,6 0=b$ 
20450 MID$(ab,16,1@)=z% 

20460 PRINT a$; 

ZO470 PRINT q%3;2PRINT #3 

20430 a$=CHR$ (24-9) +STRINGS (3S, 252)+CHRS¢ 

251) 

20490 PRINT at; 

20500 RETURN 

ZO9SO FEM b>>3>333> initialize <<<<<<<< 


214000 MEMORY 34995 
219010 addr=3d9997:GOSUB 2950@ 
21920 loca=S5029:GOSUR 30200 


Z1iZ50 RETURN 
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2LFE@ movement <feeedde 
Z2LOaOD 2 
Z201@ IF sei THEN GOSUB 22000 
22020 IF ri=il THEN GOSUB 22200 
22030 IF up=1 THEN GOSUR 22doo 
220d IF do=1 THEN GOSUB 23400 
22190 GOSUER 264000 
FE TIUIFIN 
REM fee> checks fcc dds 


LOCATE eotcyi GOISUE BEa0e 
IF che >32 THEN RETUFN 
22050 LOCATE x-1l,ytiliGOSUB 22000 
Z22@6@ IF chi?32 THEN RETURN 
23100 GOSUB Z2350@ix=x-1iIF x=1 THEN x=35 
23150 RETURN 
23200 LOCATE xt+2,y?GOUSUB 32000 
23210 IF che?32 THEN RETUPIN 
23250 LOCATE x+2,y+1iGOSUBR 22000 
23260 IF che ?32 THEN RETURN 
235200 GOSUB 2350 ix=xK+1Li1F x=39 THEN x2 
25350 RETURN 
25d0@ LOCATE x,y-1:GOSUBR 32000 
eorue IF chi?e32 THEN RETURN 

2450 LOCATE x+1,y-1:GOSUB 322000 
25d60 IF cheicS2 THEN RETURN 
23500 GOSUR 23580@:y=y-1 
23550 RETURN 

® LOCATE x,yt2iGOSUB 32000 


22610 IF che 332 THEN RETURN 
2356350 LOCATE xt+1,yt2i:GUSUR 22000 
25660 IF che >32 THEN FETUFRN 
23700 GOSUB 2380O:y=yt+l 

Z375@0 RETLURN 

2320@ LOCATE x,y?PRINT " 

a 2 LOCATE x,yti:iPRINT " 4 

23520 RETURN 

23350 LOCATE xi,yi:PRINT " "SILOCATE x1, 
yitisPRINT " " 

25260 LOCATE x2,yzZ:PRINT " "SLOCATE xz, 
verte PRINT " " 

RETURN 

REM $>oP>PREPEP Clear ¢444eeee4e0 
34000 sc=sct1@@@zLOCATE 6,1:PRINT sc 
24020 FESTORE d@1@@rtune=12:GUSUER 319000 
24080 count=a 
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2409 GOTO 14060@ 

ZddaO REM FREESE REPOS dead teed ds 
24500 cH=t$ids=b$: dead=o 

Sd510 LOCATE x,y:PRINT " "SLOCATE x,yti 
*PRINT "  " 

SdS30 RESTORE doooastune=a:GOSUBR 31490® 
Sd5d@ GOSUB 23S502PEN 2 

24550 Lisli-1:IF li=® THEN GOTO 2500® 
24560 LOCATE 15,1:PRINT c#!LOCATE 18,2:P 
RINT dt 

24570 IF li=1 THEN c#=" "td$=" " 

2455@ LOCATE 20@,1:PRINT cB!tLocaATE 20,2:P 
RINT dt 

ZdS90 IF li=2 THEN c#=" "Ssdg=" " 

24600 LOCATE 22,1:PRINT c#!LOCATE 22,2:P 
RINT At 

24610 GOTO 1500 

2Zd980 REM 2oob PEED move baddies “4444 
25000 LOCATE xi-l,yliGOSUB SQ@0@@:lIF ches 
25°33 AND ch?2d7 THEN RETURN 

Z5OO5 IF ch=253 THEN count=count+l 

SS@1@ LOCATE xwi-1l,y1l+1:GOSUBR S@@O@@:IF ch 
S2ESS AND chs2a7 THEN RETURN 

SSQ@i58 IF ch=2535 THEN count=count+i 

25020 GOSUB 2S85Orx1=x1-1:GOSUB SA@d@: RE 
TLIFIN 

25050 LOCATE xZ-1l,y2:GOSUB S@O@OOlTIF ches 
253 AND ch22d7 THEN RETURN 

ZoQ@SES ITF ch=253 THEN count=count+l 

25060 LOCATE x2-L,y2t+1iGOSUuB 30@@@:1F ch 
LeSSE3 AND chi2d7 THEN RETURN 

SS@6B5 IF ch=253 THEN count=countt+l 

25070 GOSUB SESS0ix2=x2-1:GOSUBR 2EOdO°RE 
TURN 

251@@ LOCATE xitzZ,yl:GOSUBR 2@O@O@rIF che? 
253 AND ch2s2d7 THEN FETURN 

SE1@S IF ch=253 THEN count=count+i 

25110 LOCATE x1itZ,y1+1:GOSUB 2@@@@:IF ch 
{eS SS AND che2d7 THEN RETURN 

2SL15 IF ch=253 THEN count=count+l 

25120 GOSUBR 2SSSO@:ixL=x14+1:°GOSUBR ZE@dO:KE 
TURN 

2oULS@ LOCATE x2+2,y2:GOSUR 2@O@@@lIF che > 
2535 AND che2d7 THEN RETURN 

S2S15S5 IF ch=252 THEN count=countt+i 
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2516@ LOCATE xE+2,y2+1:GOSUB S@@@@:IF ch 


S325 5 AND ch?2ad7 THEN RETURN 
BS165 IF ch=2535 
25170 GOSUB @RERO:»2=x~24+1:GOSUB 


25200 LOCATE xl,yl-1:GUSUR Sooo 
253 AND che2d7 THEN FE TURN 

25205 IF ch=253 THEN count=count 
LOCATE x1ltl,yl-1:GOSUB 200 
AND ch? 247 THEN FE TUFN 


25220 GOSUR S2EShOsyl=y1—-1:GOSUB 
TURN 

2525 LOCATE xZ,yz-1:GOSUB S00ao 
25:5 AND chs2d7 THEN RETURN 

2aSS5S5 IF ch=253 THEN count=count 
ZIZ6@ 

43253 AND che2d7 THEN RETURN 
25265 IF ch=253 THEN count=count 
25270 GOSUB 23850: yz=ye-1:GCSUB 
TURN 


254300 LOCATE xil,yyit2iGOSumk 200a@% 


225 AND che2ad7 THEN RETURN 
2305 IF ch=253 THEN count=count 
: LOCATE xitl,ylt2:GOSUB 200 
TEES AND che2ad7 THEN FETURIN 
25515 IF ch=252 
22320 GOSUB 23k 
TURN 
ZESSO@ LOCATE xB, yZ+2:GOSUR So0aa 
223 AND ch22d7 THEN RETURN 
ZOSSS IF ch=255 THEN count=count 
25360 LOCATE xSt+il,yZt+2:GOSuk 20 
S2253 AND che2d7 THEN FETURN 
25365 IF ch=253 THEN count=count 
25370 GOSUBR SASSO: ye=ye+1:GOSUB 
TURN 
2od@0 RETURN 
Za500 IF BNDC1)2@.7 THEN GOTO 25 
22510 IF xxl THEN GOSUB 25100 
25520 IF x<x1 THEN GUSUR 2Saa® 
235530 IF ysyi THEN GOSUBR 255 
255d@ IF y<yi THEN GOSUB 25200 
25550 IF RNDC1)20-6 THEN RETURN 
25560 IF xosxe THEN GOSUBR 25150 


a 


Fi@) : yi= =yi+i: GOSLIB 


THEN count=countt+l 


SEO0dO IRE 


IF ches 


ase 
@@:IF ch 


IF ch=253 THEN count=count+l 


SEOdO 2 RE 


tIF ches 


+1 


LOCATE xZ+1,y2-1:GOSUB Z@0@@:IF ch 


+1 
SEOdO: RE 


IF che & 


+1 
@@2i1IF ch 


THEN count=count+l 


ZEOILOtRE 


SIF che 
+1 
@@:IF ch 
+1 


SEQOdO IRE 


at) 
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25570 IF x<xe THEN GOSUB 25@S@ 

25580 IF yry2 THEN GUSUB 2535¢ 

25590 IF y<y2 THEN GOSUB 2 

25600 RETUPN 

25980 REM $3222 >>e> print man ¢<efedede 


Z601@ LOCATE x,ytPRINT t& 

S6020 LOCATE xyytliPRINT kt 

E6030 RETURN 

26040 PEN 3 

S6050 LOCATE xil,yltPRINT t1% 

SE0690 LOCATE xlyyltli PRINT bit 

26070 LOCATE xe2@,ye2iPRINT ti 

26080 LOCATE xe,y2t1iPRINT bh1l¢ 

SOIEO REM 2: ‘s play tune {eee das 
214000 FOR n=1 TO tune 

21010 FREAD note,dura 

21420 SOUND 2, note,dura,is 

S1@30 NEXT wn 

31440 RETURN 

FEM 3 >>> detection ¢44eeedee 


PEN 1 
IF ch#253 THEN ch=S2isc=sc+19!Snin 
D Z,LZO,1,152 count=count+1LiLocaTvTe 7,1:°PRE 


IF ch=S=2 THEN PRINT " "PRE TURN 

IF ch#2ad7 THEN RETURN 

deacd=1 

FE TLIRIN 

REM SoS PEERS end game ¢efedade 
35000 CLS 

S5@1@ PEN 1 

SI@20 LOCATE &,3:PRINT "YOU HAVE BEEN Gt 
BBLED !" 

S5@30 LOCATE &,21:PRINT "Press *Y’? to pl 
ay Again" 

S5@d@ IF scthi THEN hi=sctilLOCcATE 10,9:PR 
INT "A new high gokkble !" 

SSL50 ag=INKEYS! af=LIPPERS$ (at) 

S5160 IF ateo"Y" THEN GOTO 35150 

S5170 GOTO 14@0@® 

3979790 FEM * * * dead tune * * * 

40@O® DATA S8d,20,28d ,20, 25d ,20,255,75,5 


3 
19,20, 319,220,319, 20,379,75 
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d@@70 FEM * * * screen tune * * * 
410100 DATA S17, 20,253,20,212,50,255 


yes, 2a, = 
13,290,253 ,50 


d@110 DATA 319,20 aa) 


,20,253,20,2135,50,253,20,5 
19, 20,253 ,5@ 


Now ’MEFRGE’ the %INEEYS? and the 


TCHAR CHECE? routines. 


One Jump Ahead 


‘Once upon a time in Australia, which is a long way from Britain, 
there lived a little kangaroo. This little chap was called Skippy and he 
was very happy for many years. 

‘Skippy had his home by the banks of a fast flowing river on which 
logs floated. He used to enjoy sitting in his little hut looking out 
across the beautiful countryside, but one day things changed. 

‘The nasty humans came, and built a car expressway right next to 
the river. This meant that every day when Skippy and his friends 
returned from foraging for food, they had to cross the busy road, 
jump onto the logs to cross the river and then jump off as they passed 
their home. This is very dangerous and so they would like you, dear 
readers, to help.’ 

Using the joystick or keyboard guide Skippy and his friends safely 
between the cars, onto the logs and into their homes. Your assistance 
to wildlife will be rewarded with points in relation to how well you 
guide each kangaroo! 
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This game can be merged with the ‘High Score’ program to add 
those extra features to it. 


19 FEM <<< SKIPPY ANDY / JIM 
20 REM 
3@ SYMECL AFTER 223 
40 MEMORY 34990 
60 GOSUEB 5a 
65 gam$="Skippy" 
7® REM 
11 REM 333> DEFINE ORJECTS <4ececdcde 
120 car$=CHR$( 22d )+CHR$ (225) 

129 lor$=CHRS$ (2259+CHRS$ (2279 +CHR$ (226) 

144 bik*=CHES$ (2d19+CHRS$¢ 2d) 

20 lot=CHR$ (229) +CHRS$ (230)+CHE$ C2519 
135 gap$=CHR$ (2d5)+CHRS$ (2d59+CHES$ (2d 5) 
160 g$=STRING#(2," ") 

165 h$=STRING$C3," ")D 
17 ci#$=car$t+cars+g$t gst gst gFtcar#Htgs+gqs 
tcartt+cartt+cars+yttcarst+yStcarst+cars+yht 
gt+g$+cars+gqs+gs+carstgs 
175 cl$=cltt+cartt+carst+gst+ygs+ystcarst+cars 
+carg$+carg+gtt+g$t+gt+g$+cars+gh+carst+ghtc 
ar$+cartt+g$+gst+ty$+carstg$+gStcars+cars 
18 c2¢=Lor$t+th$th$+h$t+hS+lorsth$t+lorstlo 
PrStHS+H$+ lor $th$th$+h St lor Sth Sth Sth sth sr 
lor $+ht+h$t+h$t+tlor$+lor $+ lor F+h Sth Sth sths 
+" "+lor$+hs 
199 C3$=hikSthikSth$thSt+gS$thikGthikSthik 
SthHikSthikSthSthStySthHikSthikSt+hikSthiks 
thLRSthSth $e" “+thikS+gGh+hikG+hs+" “+thiks 
thik StbhikSthS+e" “thi kSt+h$Sth Sth $+ gSthik s+ 
hLRS+NS+ANS t+ GHFthikSthikS+hikSthiks 
200 11¢$=lo¢tygap$tyapst+tyap$t+lost+tyap$t+lost+ 
gap$+log+ygap$t+logs+yap$t+gaps+ygapst+gapstlo 
S$tyapstgap$+los+los+yap$tygapst+yap$t+los+] 
O$+loF+CHRE$ (2d59+CHRS C2d55+lostgapstyaps 
+ygap$t+lost+tyap$+los 
214 1LZ$=los+lot+gapStgapst+los+ygap$t+losty 
apSt+gap$t+lot+lost+gap$+los+gap$tyapSt+lost+ 
lo$+gap$+lot+lost+gapSt+gap$+lot+ygaps$t+los+ 
gap$+gap$+lost+lott+tyap$+gap$t+lo$+gaps+los 
215 FOR a=1 TO 10@?riv$=riv$+CHR$¢ 245) IN 
EXT a 
220 FOR a=1 TO 2O@thanit=hanil$+CHRES( fds): 
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NEXT a 

230 FOR a=1 Tat 2@ STEP dihanisg=ban1l&+CHE 
$( 2d 3)+CHE$ (2d 3)+CHES$(2d594+" "INEXT atha 
NISG=LEFT$ Chanis, 39) shbanit=hanl$+CHR$(2d5 
) 

Za FOR a=i1 TO 100: han2$=hanZz$+CHR$( 2dd ) 
*=NEXT a 

250 FUR a=1 TO d@thanS¢$=bhanS$+CHE$ (2dd)s 
NEXT a 

ZES FOR a=i TO 2Othand$=handS+CHRE$( 2d): 
NEXT a 

260 hi=@ 

500 ka=3igc=0 


31 GOSUB 71® 

Sis FEM >> SET UP VARIABLES «244 
320 cl=-Lickh=1ica=-1Lill=1:12=-1 

S30 ccl=GOrccB=Licc3=S0:111=70:112=10 
S40 k=232°bLSS32ItkS=2353 
S30 kx=1@tky= 
S60 OxX=1Otoy=22 

S62 kah=d@ 

S65 REM ooo >> MAIN GAME LOOP fecedee 
370 GOSUE 370 

275 ret=1:GaTa 7do 

3735 Ox=kxioy=ky 

376 GOUSUR doaaeo 

dO® ccel=cclt+clicck=cckt+cBhicca=cca+cs 

407 LIL=ll1+1l1illZ=lle+1l2 

420 IF ccl=1 THEN ccl=S1 

420 IF ccB=c1l THEN ccz=1 

440 IF ccet=1 THEN cc3=81 

450 IF 111=81 THEN Thiel 

460 IF l1l2=1 THEN 112=51 

4641 IF ky=a& THEN kdx=-1 

462 IF ky=6 THEN kdx=1 

d63 IF kxtkdx=0 OF kxtkdx=21 THEN S@S 
464 ret=2:GOTO 7de@ 

S10 ox=kxtoy=ky?GOTO 370 

260 REM #3333) PRINT OBSTRUCTIONS <aee 
S7@ PRINT CHR$¢3@)2PRINTIINK 2,20 

S80 PRINT: PRINT:PEINT:PEN 10: PAPER @:PRI 
NT MID#¢L2%$,LL2,17) 

S9@ PRINT: PRINT MID#CL1%,LL1,197)2PRINT:P 
RINT: PRINT: PRINT 

60@ PRINT:PRINT:PRINT:PAPER @:PEN &:°PRIN 
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T MID$(C3$,CC3,17) 
61@ PRINT?PEN 2:PRINT MID$(C2$,CCE,17) 
620 PRINT:PEN 7:PRINT MID#(C1$,CC1,1°%) 
620 RETURN 
650 REM #oo>2>> PRINT EKANGARCC foacece 
69@ PEN 12:PAPER @:LOCATE kx,ky!PRINT CH 
R$ Ck) TRETURN 
: (bo ERASE KANGAROO <<iocee¢ 
2S THEN cc=2d2:PAPER @:PEN 15 
694 IF oy=& OR oy=6& THEN cc=@:GOTO 79 
695 IF oysd AND oye1lil THEN cc=207:2PAPER: 
1@:PEN id 
696 IF oy? AND oy#1iS THEN cc=2ddi PAPER 
@2PEN iad 
697 IF oy*1id AND oy*=22 THEN cc=S32'PAPER 
@:PEN 12 
698 IF oy?21 AND oy*2d THEN cc=2dd: PAPER 
@:PEN 1d 
699 IF oy=2d THEN cc=2d3sPAPER @!PEN 15 
74@®@ LOCATE ox,oy:PRINT chee Gee re ee 
705 REM 2333>>>> DRAW SCREEN ccd: 
71 MODE @FINK 15,2d°1NK aad ciey BORDER: Qs 
PAPER @:CLS!:PRINT CHRS(30):°INE @,@thord 
ro@ 
720 PRINT? PAPER @!:PEN 1SSPRINT bandits :PA 
PER @2PEN 1@:PRINT riv#j;:PAPER ®:PEN 14: 
PRINT banié:PRINTS PRINT? PREINT?PRINT = PRIN 
TIPRINT?PEN 14:5 PRINT ban3$3;2PEN LS5:PRINT 
hands 
725 PRINT CHR#(30)3"Score High Skipps 
720 RETURN 
25 REM 33223 MOVEMENT FROM INKEYS 
7d@ GOSUB 29000 
745 CALL &HRROS 
730 IF uwpe=i AND ky<11 THEN k1iB=232°k2=233 
tkdy=—-2tkdx=O@isc=scti ELSE IF up=1 THEN 
kKL=232tke2=23Sikdy=-Likdx=@isc=sct+l 
760 IF ri=i AND kxel9 THEN k1=235d i kS=235 
tkdx=Likdy=a 
77@ IF le=i AND kx?1 THEN k1=236?:k2=237: 
kdx=—-Likdy=0 
773 IF ex=1 THEN END 
730 IF do=l AND ky#11 THEN k1=2 
tkdy=Z2ikdx=@ ELSE IF do=1 THEN 
B2359 i kdy=1likdx=@ 
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7Si kxekxtkdxtky=kytkdy:LOCATE kx, ,ky?GOS 

UB SOoOooo 

7e= IF le=1 OF up=1 OR do=1 OR ri=1 THEN 
FOR so=300 TO @® STEP -1@:SOUND 1,so,1iN 
EXT so 

JES kde=@tkdy=@:1TF k=ki THEN k=k2 ELSE k 

=k1 

7ad GOTO Za@ao 

7790 GOSUB 6&973:GOSUB 69@:1IF ret=1 THEN Gt 

TO 375 ELSE GOTO 310 

130 REM 2 >>>? CHARACTER DEFINITIONS <<< 

B50 GYMBOL 224d,7,25,56,127,2197,251,36,2d 

S60 SYMBOL F385 12S 6d, 2, 292,218,229, 58, 

Zd 

S70 SYMBOL 226, ¢ 59,9, 255, 255,60, 24 

S30 SYMBOL 227 ved ya 64,6d,255,255,125,@ 

S90 SYMECL 228.749 47,9,63,127,127,7,5 

700 SYMBOL 229,191,109, 182,109,218,125,1 


F1@ SYMBOL 230,255, 116,235,182,d7, 254,93 
120 SYMECL 231, 250,213,190, 91,182, 109,18 


y 
930 SYMBCL 232,356,24,90,60,24,60,60 
3 


sel? 
9740 SYMBOL 233,26, 2d,2d,60,90,1597,126,356 
2720 SYMBCL 234 d,1z,id,24, 60, BS, 18d, 9d 
960 SYMBOL 235 ,5,2d, 25,24 ,60,61,55,220 
97@ SYMBOL 236,32, ,d5, 112,20 60,61, 29,122 
930 SYMBOL 237,146,204 ,56,24 60,155 ,92,5'9 
97970 SYMBOL 2SG,217,60,60,24,60, 40, 2d oe 
19@@ SYMBOL Z227,36,126,159,70,60,2d,2d,35 
& 


1010 SYMBOL 240,0,0,67,172, 240,192, 255,90 
1020 SYMBOL 241,0,1,51,14,55,72, 72,48 
1030 SYMBOL 242,96, 200,2%dd,12,15d,164,22 


S24 
164@ SYMBOL 243,255, 255,255,255, 2755,255, 
Qo 


Beret g a teat 


105@ SYMBOL 2dd,@,127,127,127,127,127,12 
7,127 
1051 SYMBOL ,17@,85,170,85,170,85,170 


Pista) 
19644 addr=2d999:GOSUBR 2950o 
1065 loca=25020:GNSUB 30500 


1070 RETURN 
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14990 FEM 323322 CHECK COLLISION <<c< 
22000 IF ky=d THEN 25030 

22005 IF ch=S2 OF ch=2dd OF ch=@ THEN 79 

@ 

S5@10 IF ch=S29 OF ch=230 CF ch=251 THEN 
7IO 

SS@L1 IF chs231 AND chet 2d@ THEN 790 

S5@15 GOTO Soho 

25030 IF kx=d THEN S@@O@ ELSE IF kx=c TH 

EN S@@@@ ELSE IF kx=12 THEN S@0@® ELSE I 

Fo kx=16 THEN Saaon 


25031 ccs2d3iox=kxtoy=kyiGOTO Sa@50o 
S9990 REM 3o5>> SCORE HIGH, SEIPPS wanes 

4d@90@ PRINT CHRS¢2@):PRINT sc3TABC 7) 5ha 3 
TARC1S) jka 

d@@OS IF scthi THEN hi=scrGOTO daaoe 

40010 RETURN 

49990 REM ¢3>>> EKANGAROG IN BAY sees 

SQ@000 IF cht 232 THEN S@5@@ ELSE k=22d:G60 

SUE 69@:sc=sctSikah=kabtitFOr n=l TO StF 

OR so=l TO 20@@ STEP 1@:SOUND 1,s0,1!NEXT 
SOINEXT v1 

SQ0@OS IF kab=d THEN 310 ELSE kx=10tky=Zz2 
GOTO 790 

SO@d90 REM >> KANGAROCCG SGWIASHED ! sas 

5O50@ GOSUB &9@:SOLUIND 1,19@@,3@:SOUND 1, 

3000,6@:GOSUBR 693ika=ka-Likx=10tky=22to0x 

=1@020y=22 

SOS@5 IF ka=-1 THEN GOSUB 6@00@:GOTO 300 

20510 GOTO 370 


Now °MERGE’ the ’INEEYS’ , the 
"CHAR CHECK’? and the "HIGH SCORE? 


routines «= « « 


21 
Kinkey Dong 


All Action Climax 


This, the third arcade style game, is loosely inspired by a group of 
games in which the hero must jump over obstacles as he climbs up the 
ladder to get higher and higher through the screens. 

The evil monster that appears on each screen has in fact abducted 
the hero’s girlfriend and locked her up. He now spends all of his time 
rolling large barrels down to crush the hero. 

There are three different screen layouts and if you are successful 
then the game continues through from the first’s screen to give higher 
scores. 

Movement is by the now familiar cursor keys or your old friend the 
joystick. The little hero can be made to jump by pressing the copy key 
or the fire button. 

By following the instructions contained in the chapter on 
subroutines it is possible to merge this program with the‘ High Score’ 
subroutine which will provide a Kinkey Dong Hall of Fame. 
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1 FEM <<< kinkey dong * ISSI 222s 
= FEM 

S00 SYMBCIL AFTER 225 

S10 SYMBOL 241,66,126,66,66,66,126,66,66 
S20 SYMBOL 242,60, 66,189 165 165 189,66, 
£0 

S20 SYMBOL 2d3,255 ,165,165,26,66,66,129, 
129 

ad@ SYMEMCL Bad OSG OR LE VES ee res 16,26 
S55 SYMBOL 245,28 ,60,S,S2,dd,25 ,9,54 
S60 SYMBCL 2d6&,1Sé6,156,1dée, 124d, 56,658,135 
,~ 138 

600 MEMORY Sddgs 

730 GOSUR 22000 

19@® GOSUB 2000 

114® GOSUB 197000 

S00 IF lev=1 THEN GOSLIE e110? 

15190 IF lev=s THEN GOSUB 21200 

1520 IF lev=3 THEN GOSUR 2130@ 

15d0 GOSUB 21500 

Sa “Meer ysis 

1560 bxeLihby=7ihd=1Libe=o 

1570 cxnBee@icy=7icd=-1ice=a 

1550 IF lev==S THEN bx=7icx=13 

140@ GOSUR 2daoeo 

1310 GOSUB 2Eaoo 

1626 GOSUER 24500 

13230 PEN 7 

1Sd@ LOCATE x,y:PRINT om% 

15540 GOSUB 23000 

1460 IF y=1 THEN GUTO Sooo 

15370 LOCATE x,y 

LESO GOSUB SOHOo® 

18970 IF chs ?2d1 AND che 232 THEN GOTO Sao 
® 

197@@ LOCATE x,ytli 

19710 GOSUB 2000® 

1720 IF ch=32 THEN y=y+l 

19d@ PEN 7 

1950 LOCATE bx, bytPRINT obs 

1969 LOCATE cx,cy?PRINT oc 

2000 GOTO 1500 

2000 lev=lev+1i:IF lev=d THEN lev=1 
ZOO sc=sct+Clev*¥ad) 

3060 LOCATE 7,25:2PRINT sc 
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ne ee 
75,515,,0,0, 359 


2070 GOTO 1500 
50@® GOUND 2,300, 
S@1@ Li=li-i: 


2020 FOR n=1 


IF 11=@ THEN GOTO 60@® 


Tl 1i 


S030 LOCATE 174+n,25 


TOUGH MONKEYS !"' 


"You scored "5sc35 


Ss04d0 NEXT n 

S@50 PRINT " "s 

S060 GOTO 1500 

6000 CLS 

6005 PRINT:PEN 3 

6010 PRINT " 

6020 PRINT " 

4430 LOCATE 2,10:PRINT 
604% 


6OE@ 


GoTC 
93750 REM 

19000 SYMBOL 
19@190 SYMBOL 


POPS 


10020 SYMBOL 


10030 SYMBOL 
1494®d0 SYMBOL 


res ae 
255, 2 


1@@5@ SYMECIL 
125,125 
1®®6@ SYMBCL 
10®@70 SYMBOL 
760,0 


a, @ 
10080 SYMECL 
t2d,i2d 
10@9@ SYMEBECL 
7 
191464 SYMBOL 
19110 SYMBOL 
seed, 156 
1M120 PEN 15 
10120 LOCATE 
9) 5 CHES (230) 
191d@ LOCATE 
2) ~ CHR (233) 
10150 LOCATE 
3) 3 CHES (2546) 
1@160 LOCATE 


LOCATE S,252:PRINT 
a$=INEEY#: IF ag$="" 
AO6O SOUND 1,250 
atid 


"Press Any Key" 
THEN GOTO 6050 


125,15 


monster 
,16 ,44,62,28,56,112 
22 12. "66 ,126,90,126,196,5 


30,0, %0,8,o2, 12d ,56,25,14 
Sal elid 12) 127565551475 451 
232,60, 255, 255,250,291 ,215, 


233,14,158, 254,252,248, 22d, 
23d,1,5,15,15,51,63,62,62 
235,171,213, 235,215,235, 255 


sett g 


SRE,ISS 192, 2d0,2doO,2de,252 


237 530415,15, 55595127 512755 


0,9,9,% ae 


235,09, ,195,195,129 
239, a ado aa 


192,220, 25d 
2 ,12PRINT CHRS (228) 5 CHRS (22 
2,22PRINT CHRS (231) CHRS(CZS 
Z,StPRINT CHRS (23d) 5p CHRS (C23 


2,4:PRINT CHRS C237) 5 CHRS (2S 


148 Sensational Games for the Amstrad 


3S) ;CHE$¢ 239) 

10200 RETURN 

18980 REM 3oee > 2 start game teceeedde 
1990@® sc=@:11=3 
197@1® lev=1 
19420 1$=CHE$ (241) 

17030 b¢$=CHE$( 2d25) -m$=CHES ¢ Sdd > 

197140 RETURN 

i FEM acne fo) set screen 2ffacicde 


ZOO1O Fork n=@ To iS 

ZOOZO FREAD a 

ZO@30 INK nya 

2O0d@ NEXT rm 

20030 BORDER @:PAPER @:PEN 1:MCQDE © 

20100 RETURN 

ZO2OO DATA ead 

2OZ1LO : 17 377 26,35 

2OWA® Pe screen 

219000 p= =STRINGS(2 @, 2435) 

21414 CLSipe=1 

214020 FOR n=8 TO 2a STEP a4 

21925 PEN pe 

21030 LOCATE LyntPRINT ps 

214d pe=petl 

21070 NEXT 

21950 RETURN 

21095 FEM * * * one * * * 

Z11@@ GOSUR 21gaa®d 

21120 FOR n=s TO 2@ STEP 4 

21130 po=RND(1)*17+2 

2lid@ IF ne2zd THEN LOCATE poyntPRINT " " 

21150 lpo=RNDC1)#17+2°1F lpo=po THEN GOT 

4 21150 

21160 IF nizd THEN po=lpotGOSuUuR 21700 

21170 PEN 10 

21180 NEXT wn 

21190 RETURN 

ZLII9S REM * * * two * * * 

2L2@® GOSUB =10a0@ 

Z1S@5 PEN 12 

21210 FOR n=13 TO 2a 

21220 LOCATE 7, n?PRINT STRINGS (CS, 207) 
21230 NEXT wn 

SLlZ2d@ LOCATE 7,19: PRINT STRINGS$CS8, 32) 


&,2d,20, ils pci ad 
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21250 LOCATE 7,23:PRINT STRING$(3, 32) 
21260 LOCATE 7,15:PRINT STRING$(S, 32) 
21270 possi n=s!GOSLB 21740! po=1lsin=12:60 
SUB 2170@ 
21275 po=Sin=16:GOSUBR 21790! po=lSin=2@°G 
QSUB 2170 

z PEN 14 
( RETURN 
REM * * * three * * * 
GUSUR 214006 
LOCATE 1,8:PRINT STRINGS (S, 22) 


LOCATE 16,8:PRINT STRING$(5, 32) 
LOCATE 1,12:°:PRINT STRING$¢(d,32) 
212d@ LOCATE 17; L12°PRINT STRING#$¢d, 22) 
2iS50 LOCATE 1,16:PRINT STRINGS( 2,32) 


21360 LOCATE 19, 16:PRINT STRINGS ( 2, 32) 

21370 po=7in=1e2iGOSuR 21740 

213580 po=ldin=12iGOSuB 21700 

21390 po=ein=29:GOSUBR 21700 

21400 po=1lFin=2O0:GOSUBR 21700 

214d190 po=Fin=16:GOSUR 2170@ 

21d20 poFlein=16:GOSUR 2170 

21430 po =1@in=a:GUSUR 2170@ 

Sldd® po=lLiin=s:GOSuR 2174@ 

SLldSo LOCATE &,2@:PRINT " "LOCATE 15,20 
>PRINT " " 

SLideSa PEN 10 

21450 FRETLIFIN 

Z1d9®@ REM * * * top * * * 

21500 LOCATE 1,25 

SLS@E PEN 1 

21510 PRINT "SCORE:"3sc¢ 

SLS20 LOCATE 16,25 

Z2LS2Z5 PEN & 

21550 FOR mn=1 TO Li 
215d@ PRINT CHES (245) 5 

2ZLISSQ@ NEXT 1 

21555 PEN 7 

21560 LOCATE 1S,62PRINT STRING$¢S, 243) 
21570 PLOT @,S3S25: DRAW 150,325 

SLSE0 po=lein=2:GOSUB 21700 

21650 GOSUB 1000 

21650 RETURN 

21690 FEM * * * ladder * * * 

21700 FOR z=@ TO 3S 
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21705 
Z171@ 
21720 
Z173@ 
217d@ 
Z2APEO 


229000 


Ahi bi B 


Z23Q05@ 
(245) 
ZI06@ 


$(Zdd) 


2307@ 
aa 

ZIOa0 
aw 

23090 
23250 
ZS300 


cn tear 


23508 


233790 


23380 
235d00 
23d05 
23d190 
23420 
ZI500 
=1 

23510 
23520 
SS530 
23540 
ZIE19 
234650 
SI660 


PEN 7 
LOCATE po,yntz 
PRINT 14 

NEXT = 
RETURN 
REM 


loca=S502d:GOSUR 20500 
RETURN 
REM 3232S 
GOSUB 29000 


a ee a a ee) 
i Te 


IF le=1 AND x22 THEN x=x-1!?m$=CHRS 


IF ri=i AND xii THEN x=x+1im$=CHR 


IF up=i THEN m#=CHR$(2d6)°GOTO 235 


IF do=1 THEN m$=CHR#¢(2d6):°GOTO 23d 


IF fi=1 THEN GOTO 23500 
RETURN 

LOCATE x,y~d 

GOSUB Zaaa® 

IF che ?2d1 THEN GOTO 22350 
y=y-1:GOTO 23080 

LOCATE x,yti 

GOUSUB 2O0ao 

IF ch=2d1 THEN GOTO 222320 
GOTO 23030 

LOCATE x,ytl 

GOSUB ZoOaaw 

IF che?2di THEN GOTO 22090 
y=y-1:°GOTO 22090 

IF m$=CHRE$¢2d59 THEN xd=-1 ELSE 


IF x2 OR x219 THEN xd=@ 
IF m#=CHR# (246) THEN xd=@ 
LOCATE bx, ,by?tPRINT obt 
LOCATE cx,cytPRINT oc 
RESTORE 237350 

FoR n=1 TO 6 

READ a 

y=yta: GOSUB 23850 

IF plat=1 THEN n=11 

NEXT n 


xed 
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237400 GOSUR 2d50ao 

23710 RETURN 

DATA -1,-1,9,@,1,1 
x=xX+txd it plat=a 

LOCATE x,yytl 

GOSUEB =@O@aaa 

IF che 232 THEN plat=1 RETURN 
IF x2 THEN x= 

IF x21 THEN x=19 

GOSUB 24daa@ 

GOSUB 2d50@ 

SOUND 2,10@,2,15 

PEN 7 

LOCATE kx, bytPRINT ob 

25935 LOCATE cx,cy:PRINT oct 

Za9d0 GOSUR 2Eaea 

22950 LOCATE x,ytPRINT om 

23960 RETURN 

235980 REM oR oR SeRD print <4eeeccddda 
2a795 REM * * * man * * * 

Zd0@O® LOCATE x,y:GOSUBR Zaaaa 

24010 om$=CHRE¢ ch) 

24d@20 PEN @ 

24050 PRINT m$ 

2d14® RETURN 

Sdd90 FEM * * * barrels * * * 
2d500 LOCATE bx, byt GOSUB Saoa® 
24510 ohbS=CHEE(C ch) 

24520 LOCATE cx,cy?GOSUB 30@00® 
24530 oc$=CHES¢ ch) 

Zd5d@ PEN & 

24550 LOCATE hx, hy 

24560 PRINT bh 

2d570 LOCATE cx,ycy 

24550 PRINT be 

24600 FE TURN 

2A980 FEM 
25000 a= =RND(1)*10 

25005 LOCATE Exykytt 

25010 GOSUR Oooo 

25020 IF ch=32 OR ch=2d1 AND aS THEN ke 
=1 

25@30 IF ch=Zd3 THEN he=@ 

25040 by=bhythetIF be=@ THEN bx=bxtha 
25050 LOCATE cx,cytl 


a tw 
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25060 GOSUB 2Oa0o 

25070 IF ch=32 OF ch=Zd1 AND a2a THEN ce 
=1 

25080 IF ch=2d3 THEN ce=@ 

ZaOI@ cy=cyt+tcetIF ce=@ THEN cx=cxt+cad 
Z2S1@@ IF beee@ THEN bd=1 

S3105 IF bxeoid THEN bd=-1 

25119 IF cxee THEN cd=1 

SSLL5 TF cxsi% THEN cad=—-1 

25130 IF (Cheee OR bxotio> AND by=2 THEN 
beelibd=Liby=78IF lev=3 THEN bx=7 

2Sld@ IF ¢Ccxet2 OF cxt19>) AND cy=23 THEN 
Cx=2@icd=—-Licy=7:1F lev=S THEN cx=1s 
25250 RETURN 


Now °MERGE’ the *°INEEYS* and the 


‘CHAR CHECK? routines. 


22 
Word Splash 


Spell or Swim 


This game is a more humane, more fun version of the well known 
hangman game. If the player cannot guess the word in time, then all 
the wrong letters push a character into the water. 

Words can be up to eight letters long but should not contain 
hyphens. The listing has about 60 words already included. More 
words may be added or the existing ones changed. 

Ifa letter is guessed, it appears at each correct position in the word. 
If it is not right then the poor victim is pushed one space along. 
Should the word be completed in time then the little figure pushes all 
the wrong letters back and a new mystery word is offered. 

The word is not shown if it is not guessed and since words are 
randomly selected it may be possible to have the same word again 
later. 

The program is very entertaining, educational and can be 
surprisingly addictive! 
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1 REM <2£ee2< word splash ISSI =: 
= REM 
SOO RANDOMIZE TIME 
14®@ GOSUB 21900 
15@@ RANDOMIZE TIME 
1510 w=INTCRENDC1)*6@)+1 
1320 wH=d$Cw) 
£30 GOSUBR Oooo 
16400 GOSUB 2d@oo 
1619 flay=0 
1650 IF t#=wt THEN GOTO 200@ 
1660 IF LENCg$>=10 THEN GUT 2oa@ 
1679 GOTO 14600 
1990 REM * * * lose * * * 
ZOOd GOSUB BAaa® 
ZQO10O RESTORE 2000 
Z2O2O0 FOR n=l TO 1® 
2020 READ a,h 
2040 SOUND S2ya,h,is 
S050 NEXT vn 
2060 DATA 233,20, 25d 
20270 DATA 5 


SORO 
2d00 
2410 
Zea 
299 
20OO 
ZO1@ 
3920 
2O3O 
2OAD 
SOS@ 
SOG 
3070 


DATA 
CLS 
LOCATE 4,23: PRINT 
GUT Sia@ 


"TOUGH LUCE 


REM * * * win * * * 

RESTORE 2000 

Fut n=1 TO 16 

READ a,yh 

SOUND Z@ya,h,is 

NEXT 

DATA 319,20, 254,20, 255,20, 259, ) 
DATA 317,290 aol et epee Ae 


DATA 319,20, 26d, 20 
DATA 284,d0,3555,d0,: 
IF g$="" THEN GOTO 
FOR n=LENCg$) TO 
gG$=RIGHT$Cg$,nm-1) 
GOSUE 2d11@:PRINT 
SCUIND 1,n*¥20,2,15 
FOR p=1 TO Soe 
NEXT y 

NEXT ni 

CLS 


2 a 40,319, 
3A80 
1 STEP-1 
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S490 LOCATE 2,3:PRINT "CONGRATULATICNS | 
3500 LOCATE 3,2@:PRINT "Press Any Key" 
S520 at=INKEY$ 

IF ag="" THEN GOTO B52@ 
GOTO 1500 
REM 333222 > Ree screen Sees aa aaa 
RESTORE 2@aoo 
FOR n=® To iS 
FREAD a 
2@O@30 INE nya 
2O0d0 NEXT n 
20050 DATA O,209,2,15,6,20d,26,@ 
29069 DATA 0,9,9,9,0,9,0,0 
20100 BORDER @:PAPER @:PEN 1:MODE @ 
2011@ LOCATE S,1:PRINT “WORD SPLASH" 
ZOLZO ag=CHR$(196)+CHRS (198) tab=abtattas 
+tabtatt+att+as 
ZOLSO PEN & 
201d@ LOCATE d,2:PRINT at 
ZOLSO PEN 
20160 LOCATE 1,412¢PRINT STRING$(10,207)+ 
CHR (223) 
ZO017@ LOCATE 1@,12:PRINT CHESC221) 
20180 LOCATE 11,12:PRINT CHR$(207) 
Z2O19@ LOCATE 12,12:PRINT CHRS(223) 
20210 FOR n=1 TO 16 

2@ LOCATE 12,1d+n 
20230 PAPER Z#:PEN 3 
202355 IF ni3 THEN PAPER @ 
Z2@Z2d@ PRINT CHR$(211);STRINGS(6, 52) ;CHRS 
2O25@ NEXT v1 
20260 LOCATE 12,25:PRINT CHR&(2@5) ;STRIN 
GCG, 210) 5CHRSCZGd) ; 
20300 RESTORE 20300 
20310 FOR n=S TO 1d 
20320 PAPER @:PEN n 
2@320 READ a,hk 
2@3Sd@ LOCATE a,h 
ZO@36E0 NEXT 1 
2037 DATA 11,10,12,11,13,12,14,13 
2933@ DATA 15,14,16,15,16,16 
ZOdOO PLOT 510,15@,7:DRAW S60, 160 
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20410 PLOT 475, 15@:DRAW d20, 160 

ZO@4d20 PLOT S1@,155:DRAW Sdo,180 

20430 PLOT 478,155:DRAW dd5,180 

ZOdd® PLOT S20,1d7:DFAW 590,150 

2Od5@ PLOT d6S,1d7:DRAW S98, 150 

20d9@ PEN S 

20500 LOCATE 1,13:PRINT "WORD:-" 
20510 LOCATE Z2,17:ts=""ig$e"" 

20520 FOR n=i TO LENCwS> 

20530 PRINT "—"sit¢=to+" " 

ZO54@ NEXT n 

20550 PEN 3 

ZOSGO LOCATE 1,10:PRINT CHRS (2d) 
20530 LOCATE 2,20:PRINT "GUESS 3" 
ZO750 RETURN 

2@98@ REM Fee e ee imitialize <«¢<<4<< 
21000 RESTORE 
Z1@1@ DIM d$(6@) 

219020 FOR n=1 TO 60 

Z1@30 READ din) 

21@4@ NEXT n 

Z1250 RETURN 

22980 REM Pee RPR EEO splash! <<¢eceees 
23000 LOCATE 11,1@:PRINT " " 

23010 FOR n=e TO 1d 

23020 INK mn, 2d 

ZEO3@ SOUND 2, 30@-n*10,25,15 

23040 FOR q=1 TO 250 

ZE@50 NEXT q 

23060 INK 1,@ 

Z23@70 NEXT ntINk 1d,2d 

23080 INK 7,26:SOUND 2,300,50,15,0,0,31 
23090 FOR n=1 TO Zhe 

23100 NEXT n 

23110 INK 7,@:INK 1d,@ 

23250 RETURN 

ZE9G@ REM Poe SR PREP E input <ccecenende 
24000 a$=INKEY$! a$=LIPPERS (as) 

Zd@10 IF a$<"A" OR a$z"Z" THEN GUTO Zdoe 
@ 

Z4@20 SOUND 2,200,10,15 

24030 flag=@:PEN 4 

Z24@d@ FOR n=1 TO LENCwS) 

24050 IF MID$(wH,n,1)=a% THEN LOCATE 1+n 
AGIPRINT aSiMID$(t$,n,1)=asiflag=l 
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24060 NEXT v1 
24070 IF flag=® THEN GOTO 24100 

24030 SOUND 2,150,5@,15 

24090 RETURN 

24100 gt=at+gs 

Zd11@ LOCATE 1,1@:PEN 4 

24120 IF LENCg#)/Z=INTCLENCg#)/2) THEN a 
=25@ ELSE a=251 

Zd13@ PEN S:PRINT g#;CHR$(a)d; 

24140 RETURN 

SIISO REM POPEPEROPPEE data <<eeceeddde 
30@0@@ DATA ACUTE,AGILE, BROKE ,CANDY | COLIGH 
,DRYLY, GNCIME , MISTY, NYMPH, PYGMY 

30010 DATA BARLEY , BODKIN, CEPTIC, DEVOUR, E 
IGHTY EXOTIC,FLINCH,GLORIA,HYMN,LYRICS 
30020 DATA METHYL, SPYING, SYRUP, YOGHURT, V 
ISUAL ,WOBEILE, ANCHOVY , RELAX , RHYTHM, RHUBAR 
E 

3Q@O@30@ DATA SKETCH, FASCIST, BORING, FATIGUE 
s FROWN, TRUANT, LEMMING, ZING, GLAMOUR ,HYDRA 
TED 

30040 DATA KETCHUP, MYSTIC,NGISY,OCTOPUS, 
SGUID,RAMBLER, SATCHEL ,SEXTANT,YULETIDE,S 
WINDLE 

3OO5O DATA PLAYER, DOCKER, DESTINY, FUTURE , 
LENTIL, FOREIGN, LOGICAL ,WINTER, THIRST ,NAI 
VE 


Ten out of Ten 


This single program can offer questions for ‘primary’, ‘junior’ and 
‘senior’ levels (that is everyone). The question can be of any one type, 
selected from plus, minus, multiply and divide. The questions and 
answers are drawn to a blackboard to help make the presentation 
attractive. 

Selecting the primary level will set up problems which involve 
counting two sets of ‘little men’ to produce a total. The junior level 
provides options for the four types of arithmetic and produces 
questions which have whole number answers. It should be possible 
for most adults and older children to work these out mentally. 

The senior level would require a very strong mental arithmetic 
ability and is designed to set problems which can be worked out using 
pencil and paper or even a calculator. 

The answers are required to be typed in and then sent to the 
computer using the ‘Enter’ key. This means that mistyped answers 
can be corrected if spotted before the ‘Enter’ key is pressed. The 
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program will allow up to two wrong trys before revealing the correct 
answer. 
At the end of ten questions the computer will print up a ‘report’ 
showing the number of correct answers and a percentage score. 
After “RENUM 40000.5” the game Rainbow Breakout may be 
merged with this program to provide a fun reward for getting ten out 
of ten. 


1 FEM #aeeeee4 sum fun <> ISSI RP RED 


1200 GOSUEB 2OOO® 

1300 LOCATE #1,2,3:PRINT #1,"12Primary" 
1210 LOCATE #1,2,5:PRINT #1,"22Junior" 
1320 LOCATE #1,2,7:PRINT #1,"3>Senior"” 
1320 a$=INKEYS 

13d@ IF afei"i" OF ate"3" THEN GOTO 12330 
1350 SOUND 2,3200,50,15 

1360 lev=VAL Cas) 

1390 GOTO 3000o 

19980 REM 32D E PEED screen “iid dnd 
2000@ RESTORE 20000 

2OO1@ FOR n=o@ TO 7 

20020 READ a 

20030 INE nya 

20040 NEXT 1 

20050 DATA 2,9,26,24d,6,190,7,13 

20060 BORDER 2IPAPER @:PEN 6&:MMDE @ 
SOO70 FOR n=S20 TO S238 STEP 4 

240030 PLOT n,2580,6:DRAWFE 80, —-330 

2OOI@ NEXT wr 

20100 FOR n=S20 TO 305 STEP —-d 

20110 PLOT ny yS80,62DRAWE -S@,-330 
20120 NEXT n 

2QM130@ WINDOW #1,6,15,6,17 

24140 WINDOW #2,8,123,l4d,14 

20150 PAPER #1,1°PEN #1,2:°CLS #1 

PAPER #2,1:°PEN #2,2:°CLS #2 

RE TUFN 

REM Bobo RE PES input <eeeqcdddds 
219000 INPUT #2,9% 

SI@1i® IF gt="" THEN GOTO 2190@ 

21920 cor=1 

Z1@3@ IF VAL Cg$)eeans THEN cor=0 

214040 RETURN 

21id7@ FEM * * * guess * * * 
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2LS0® 
SLS1IG 
21520 
21530 


eC 
<am 


21540 
2152 
21Sdd 
21546 
2154e 


21550 


50,400 


ote i ie) 
2135352 
21555 


21560 


FOR g=1i TO 2 

GOSUB 21a@oo@ 

IF cor=1 THEN GOTO 215460 

SOUND 2, 50@0,d@,15:SOUND 2,750,250, 1 


NEXT yg 

RESTORE 21542 

FOR n=1 TO 4 

READ a?tSOUND 2,a,20,15 
NEXT 


DATA 200,250,200, 2590,300,25350, 300,35 


SOUND 2,600,75,15 
GOTO 21590 
SOUND 2,640,3@,15:S0UND 2,400,30,1 


S:SOUND 2,200,30,15 


21570 
21580 
21590 
21600 
21980 
22000 
ZEO10 
22020 
ZEOSO 


220d 


CA7Z3 


22050 
2206 
@ 

22070 
22080 
22100 
22110 
C172) 
22200 
23000 
23010 
23020 
Z2I030 
230d 
2310 


Cant Renae oat et 


Sao 


gHZ 

tot=tott+l 

CLS #1:CLS #2 

RE TURIN 

REM REPRE RE te type cisced ada s 
CLS #1:°CLS #2 
LOCATE #1,2,2:PRINT 
LOCATE #1,2,4:PRINT * 
LOCATE #1,2,46:PRINT #1,"3% Ux" 
LOCATE #1,2,3:PRINT #1,"d2 7" 5 CHES 
i 

as=INKEYS 

IF ageivid" OF age"d" THEN GOTO 2203 


Z=VAL Ca) 

DEF FN sum=athis$='"+" 

IF z=2 THEN DEF FN sum=a-his$="—-" 
= THEN DEF FN sum=a®*bist="x" 

=4 THEN DEF FN sum=a/hi s$=CHRS 


RETURN 
REM 3% bt 
lim=a:div=@ 
IF lev=2 THEN lim=12:GCISUER 220a® 
IF lev=3 THEN lim=25:GOSUR 22000 
CLS #1:CLS #2 

tat=oa 

RETURN 


FEM 2 PRP DFERRS> numbers @2 eee ddd 


2d000 
249010 
2d020 
ZA OS® 
2d035 
Zd0d@ 
24050 
ZAd 06 
24070 
24100 
Ed150 
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RANDOMIZE TIME 
a=INTCEND¢C1>*®1lim)+1 
b=INTCRNDC1>*lim)>+1 

IF div=1 THEN a=a*h 

IF lev==2 THEN div=o 

CLS #1:°CLS #2 

IF lev=1 THEN GOTO 24diso@ 
LOCATE #1,1,3°:PRINT #1, ,ays#5h 
ans=FN sum 

FE TUPFIN 

LOCATE #1,2,3:PRINT #1,STEINGS(a,2 


SQ) LOCATE #1,5,5:PRINT #1,"+" 


Bd 160 
50) 

24190 
2d 200 


SOO1L® 
SOaOdL@ 
SOOR® 
ZOLO® 
SOL S® 
2OLE® 
30170 
BOL 
SO@1LIO 
3SOZO00 
nya 

AOBAOD 
SOLED 
SOZ7O 
SOLSO 
2A SOO 
SO@S31O 
4OOa® 


LOCATE #1,2,7:PRINT #1,STRINGS(h,2 


ans=ath 
FE TUPIN 
REM : 
GOSWE 
FOR p=i TO 10 

GOSUEB 2doaoo 

GUSUB 21LA@@ 

NEXT yj 

CLS #1:°CLS #2 

PRINT #1," REPORT." 

PRINT #1,° -------- " 

LOCATE #1,2,5:PRINT #1,tot;"were" 
LOCATE #1,2,7:PRINT #1, "correct." 
LOCATE #1,2, 97: PRINT #1,tot/10*10@ 


main loop <add se 


LOCATE d,S5:PRINT "Press any Eey"” 
a$=INKEYS 

IF at=""" THEN GOTO 30260 

LOCATE 4d, 25:PRINT SPCC 12) 

CLS #1:°CLS #2 

GOISUB daooo 

GOTO 1300 

RE TURN 


2.4. 
Today England 


Cite it» 
ROMCHES TER 


Tomorrow the World 


This is a self-contained geographic quiz based upon the map of Great 
Britain. The game is very straightforward and consists of questions 
which relate to key towns or cities, and the county to which they 
belong. Options are given to guess the county, the town or both. A 
point is plotted on the map to indicate the location of the town or city. 

The central core of the program could be developed to produce 
either a more detailed map or as the heading suggests, the world 
could be plotted next! 

The Picture Builder program later in this book will be found 
helpful to identify the points to be plotted. The map used in this 
program was produced by taping an outline of Great Britain onto the 
screen. This was on a clear acetate sheet, so it was possible to move 
the cursor to each point, note the x,y co-ordinates and then move to 
the next point. The result can be as detailed as the mode selected and 
your patience will allow. 

Another way to develop this program would be to extend the data 
to include more or all counties and the county towns. In fact you 
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could find that the research of the facts to put into the listing is even 
more educational then the program itself! 


1® FEM TODAY ENGLAND , 


11 FEM = TOMMORRCW THE WORLD 
13 FEM ANDY / JIM ee 
16 REM 


20 GOSUB LE@ae 


SO MODE 1tLOCATE 15,1:PRINT "Today Engla 


red" 

25 INE @,@:BCRDER © 

d@ sc=@ 

S@ LOCATE 12,3:2:PRINT "Tommorrow the Worl 

Aq" 

60 LOCATE 2,6:PRINT "Choose options" 

7M LOCATE 140,8:PRINT "1...-Guess countie 

S uo 

S@ LOCATE 10,9:PRINT "2....«Guess cities” 

99 LOCATE 1@,1@:PRINT "3...-Guess both" 

100 a$=INEEYS 

110 IF a$="1" THEN op=1:°GOTO 150 

120 IF ag="2" THEN op S2'GOTo ise 

120 TF ag="S" THEN op=3:9GOTO 150 

1d@ GOTO 10@ 

150 GOSUB Fao 

160 RESTORE 1270 

165 IF op=3 THEN 630 

210 F eee GUESS CITY / COUNTY sanee 

220 FOR c=1 TO 16 

230 READ né,x,y,cos 

24@ PLOT x,y,5 

250 IF op=1 THEN LOCATE 25,5:PRINT "City 
is " 

26@ IF op=1 THEN LOCATE 21,7:PRINT nt 

270 IF op=2 THEN LOCATE 25,5:PRINT "Coun 

ty is " 

25@ IF op=2 THEN LOCATE 21,7:!PRINT cot 

2970 tress 

30@ IF op=1 THEN LOCATE 25,9:PRINT "Coun 

ty is" ELSE IF op=2 THEN LOCATE 22,9:PRI 

NT "City is" 

31@ IF op=i1 THEN INPUT #3, c%?c$=UPPERS (Cc 


$) 


320 


IF op=2 THEN INPUT #3, citi ci#=UPPERS 
(cis) 
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3@ IF op=1 AND c#=cot# THEN d2o 
IF op=2 AND cit=n% THEN deo 
tr=tr-1LilLocaATE 26,2@:PRINT "Wrong"3t 
tries" 

S60 LOCATE 3@,22:°:PEINT "left." 
37% GOSUB 150@ 

SEO LOCATE 246,2@:PRINT SPCC 1d) 
390 LOCATE 30,22:PRINT SPCCé) 

d@® IF tr=@ THEN 2000 

410 GOTO 300 

420 GOSUR iddo 

413530 LOCATE 26,1@:PRINT "Correct." 
dd@ GOSUR 150 

450 sc=scttr 

460 PLOT x,y,@ 

470 PRINT #3 

450 PLOT @,@,1 

490 GOSUER 1ldd@ 

200 NEXT ¢ 


2 


Ss 
oy 


4 Gl 
as ee 


" 


S1@ CLS:PRINT: PRINT " You scored"ssc¢c 
3" points." 

S20 PRINT: PRINT! PRINT" Press "SPACE? 
to start ayain" 

S2@ PRINT! PRINT" or THT ta quit 


Sd@ as=INREYS? a$=UPPERS( as) 

320 IF ag="" "THEN 30 

S60 IF at="GQ" THEN END 

S74 GOTO do 

610 REM +>>>>% GUESS CITY & COLINTY 

620 REM 

630 FOR c=1i Ta 16 

649 READ n# yx ,y,cB PLOT x,y,3 

65@ LOCATE 25,9:PRINT "City is” 

660 tras 

67@ INPUT #3,cis 

63@ IF cit=n$ THEN GOSUB idd@:LOCATE =) 
1@:PRINT "“Correct":GUSUB 1L3Q@@isc=scttriG 
QSUR idd@:GOTa 750 

6970 tr=tr-1 

7@® LOCATE 26,2@:PRINT "Wrong"str3" trie 


71@ LOCATE 3@,22:PRINT "left." 
720 GOSUB 150a 
725 LOCATE 26,2@:PRINT SPCC 14) 


TEE 
Tal 
730 
740 
730 
TED 
77® 
TAO 
1@:P 
CSUR 
TIO 
Oo 


1H0@ 
1@10 
1LO20 
1030 
194@ 
1a5@ 
19640 
1970 
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LOCATE 3@,22:PRINT SPCC4) 

IF tr=® THEN 730 ELSE GOTO 6&7 

LOCATE 25,1°PRINT "CITY IS" 

LUCATE 2@,3:PRINT nm 

LOCATE 25,7:!PRINT "County is" 

tres 

INPUT #3, cot 

IF cot=c$ THEN GOSUB idd@:LOCATE 25, 

RINT "Correct": GOSUB 15@@:sc=sct+triG 
Ldd@:GatTa adi 

tr=tr-l 

LOCATE 26,2@0:PRINT "Wrong"str3" trie 


LOCATE 30,22:PRINT "left." 
GOSUB 120@ 
LOCATE 264,2@:PRINT SPCC¢1d) 
LOCATE 340,22:PRINT SPCC4é) 
IF tr=@ THEN S20 ELSE GOTO 77@ 
LOCATE 23,95 PRINT " n 
PRINT #3 
LOCATE 2S,6:PRINT "COUNTY IS" 
LOCATE 2@,S:2PRINT c 
GUSUB Ll@@ 
GOSUB Ldde@ 
PLOT x,y,@ 
NEXT c?GOTO 510 
REM 33222 >o>> DRAW MAP <fecedcdade 
MODE LEIEWINDOW #3,20,d@,11,11 
PLOT @,@,1 
INE: 3,0, 26 
RESTORE 1130 
FOR a=1 TO i 
READ xyy 
IF a=1 THEN PLOT x,y ELSE DEAW x,y 
NEXT a 
FOR a=1 TO 17 
FREAD xyy 
IF a=i THEN PLOT x,y ELSE DRAW x,y 
NEXT a 
FOR a=1 TO d!tREAD x,y 
IF a=l THEN PLOT x,y ELSE DRAW x,y 
NEXT a 
FOR a=1 TO dtREAD x,y 
IF a=i THEN PLOT x,Y ELSE DFRAW x,y 
NEXT a 
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1930 FOR a=1 TO S8READ x,y 


1@9@ IF a=1 THEN PLOT x,y ELSE DRAW x,y 


119® NEXT a 

11190 RETURN 

1115 FEM +222 MAPS DATA 
1120 REM Mainland Britain 


113@ DATA 192,371, 228,377,254, 


J 23d ,Sd1,255, 335,258, 3 


! 


“46 creel 
sel@, Sa 


BOE Syeea,e7 252, 27 


11d@ DATA 228,269,252, 263,270,205,276,21 
5,306,203,3515,173,294,179,32d,1d9,318,15 


7youd,1ds,360,115 
1150 DATA SE spi ee ag CES ee 


S,47, 23d ,SS,216,35,17d 22,16 
’ ’ ’ ’ yoy ’ ’ 


246,71,253, 95,234 


116@ DATA 204,95 , 107,216 


,198,131,216,155, 252,155,240, 


23d ,191,222,2097 
3 3 4 tJ 


EE amet 


‘ pol, 25 


S20 210.7. 


v9 413,216,137 
173,246,191 


117@ DATA 234,227,204, 215,192,227, 20d, 24 
,19S,263,180,239,168,2d5,190,257,162,25 
1,150,317,166,341,192, 347, 190,365,199,35 


J,192,371 
1180 FEM Ireland 


1190 DATA ide, Sdl 172,229, 18d 199,172,158 


7,160,157, a ras, 160,109,111 
Sa, 80,50, 13 519@,157,79, 163, 
@@,12 eo 

1200 REM Isle of Man 


S,103,S2,85 


“ 


a2. 199,110,2 


1210 DATA 192,151,204,151,210,199,192,18 


1220 REM Anglesey 


1230 DATA 206,157,206,151,210,160,206,15 


lzd®@ REM Isle of Wight 


1250 DATA 254,55, 250 d9, 292 ,d3,295,d9,25 


6,55 
1260 REM cities 


1270 DATA MANCHESTER, 255,171, 


NCHESTER" 


"GREATER MA 


128@ DATA CHESTER, 252,149, "CHESHIRE" 
1290 DATA LEEDS, 282,175, "YORKSHIRE" 
13@@ DATA HULL, 30&,1&1, "HUMBERSIDE" 


1210 DATA LIVERPOOL, 250,163, 
1220 DATA BIFEMINGHAM, 274,117, 
NDS" 


"MERSEYSIDE" 
"WEST MIDLA 


L230 
13d 
L350 
1360 
IRE" 
1370 
1350 
LTay® 
1400 
AND" 
ldio 
1ld2o 
14:30 
1lddo@ 
1d50 
1440 
1d65 
1470 
1dao 
1455 
Lediné 
1490 
LE0@ 
4990 
SOaa 
SOOS 
FO 1@ 
SOLS 
Su @ 
aM S 
FiO 3@ 
OSS 
EOcL @ 
SOdS 
SOI 
SOS 
FOE@ 
OE 
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DATA LONDON, 312,85, "GREATER LONDON" 
DATA BRISTOL, 260,83, "AVON" 

DATA CARDIFF ,2d4,95, "MID GLAMCRGAN" 
DATA CAMBRIDGE, 322,115, "CAMBER IDGESH 


DATA GLASGOW, 216,261, "STRATHCLYDE" 
DATA EDINBURGH, 238,261, "LOTHIAN" 
DATA ABERDEEN, 250,315, "GRAMPIAN" 
DATA NEWCASTLE, 266, 223, "NOR THUMBERL 


DATA BELFAST ,179, 200, "ARMAGH" 
DATA DUBLIN, 160,160,"DUBLIN" 
REM >» CLEAR RIGHT SIDE CF SCREEN 
FOF q=1 TO 2d 

LOCATE 25 ,q:PRINT SPCC1IS) 
NEXT 

s5$=STRING$ (6,32) 

LOCATE Z2@,11:PRINT s# 

LOCATE 20@,7:PRINT s# 

LOCATE 2@,3:PRINT s# 

LOCATE 2@,4:PRINT s% 


RE TLIRIN 
FOR t=1 TO S@O@@INEXT tiRE TURN 
REM eee NO TRIES LEFT 3332%> 


GOSUBR Ldd@ 

LOCATE 23,3 

PRINT "CITY IS " 

LOCATE 21,5 

PRINT nt 

LOCATE 22,19 

PEINT "COUNTY IS " 
LOCATE 21,12 

PRINT cot 

GOUSUB 15a@ 

GUSUB 1idd® 

LOCATE 21,5:2PRINT SPCC&) 
LOCATE 21,12:°:PRINT SPCC4é) 
GaTO 46a 


25 
Character Builder 


The Create Your Own Monster Kit 


Character building can be as much fun as playing a game. This 
‘utility’ enables 32 of the Amstrad’s characters to be defined easily 
and then butted together to form more complex pictures. 

The built-in characters from 224 to 255 are first displayed and then 
the opportunity is given to adapt them, swap them, or create 
completely new ones. The definition values can be noted down and 
then used in your own programs using the ‘Symbol’ command. 
Complete sets can be saved on tape to produce a library of useful 
characters. 

Although many of the programs in this book have had characters 
designed for them, others use standard characters. With this 
character definer you can dramatically improve the appearance of 
these games. You may even wish to change all the ones in the book! 

Because of the wide range of features in this editor, it may take a 
little time learning how to drive it. The following list of commands 
will provide a handy reference guide during your ‘Learner’ period. 
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Character builder reference guide 


After loading, the grid starts with the first character picked up. This 
may then be Edited, Cleared, or any of the following can be selected 
by pressing the first letter of the option. 


Clear. This clears the grid completely. 

Pick up. Asks for character number, then as the last digit 1s pressed 
that character will be transferred to the grid. It can then be Edited, 
Changed, etc. 

Edit. Places the flashing cursor at the top left of the grid. It can then 
be moved around using cursor or joystick. Fire or copy key will set or 
unset a point. When finished ‘Enter is pressed. Then the number is 
required to transfer the pattern to. 

Numbers. Asks for character to which the pattern will be assigned 
and then requires eight values, corresponding to the total for each 
line, starting at the top. This then generates the image directly. ‘Enter’ 
terminates this option. 

Mirror. Asks for character number then asks whether horizontal 
(swap left to right) or vertical (turn upside down). The result is shown 
in the grid. To store the new character select ‘Edit’ followed by‘Enter’ 
and then the character number for allocation. 

Vert shift. Asks ‘up’ or ‘down’. Moves the definition up or down 
one row with wraparound. 

Hor shift. As for Vert shift, but left or right. Wrapped lines may be 
edited out. 

X-change. Asks for two characters and then swaps. their 
definitions. 

Build. Removes the grid and provides a 14 X 10 character area in 
which to test how the patterns look when fitted together. The 
character number is requested and then that pattern may be placed 
anywhere using the cursor pad or the joystick. The fire button or copy 
key fixes a character. A new character is selected by firmly pressing 
‘space’ and then entering the character number required. ‘Enter’ 
leaves Build and returns to grid. 

Save. Asks for a file name to save with, next ‘Play’ and ‘Record’ 
should be pressed, then ‘Enter’ will save the current set. 

Load. Asks for a file name to load, or if just ‘Enter’ is pressed the 
first file found will be loaded. 


Note that in this program ‘Escape’ is disabled to prevent loss of data. 
Switch off to end. 
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1 FEM “<< char buarider <°> ISSI/JIIM 
= rR 


ZO® CALL &BROS 

S@@ GPEED WEITE 1 

1@@®® GOSLIE 2Li@ae@ 

1410 GNSUB 2aOoaoo 

1920 char=1:GOSUR Z2@Oa@ 

1050 MEMORY 24995 

S010 REM 333333222 main loop “Haden das 
50230 atZ=INKEY$: at=LIPPEFR$ (Cas) 

SQ@d@ IF ag=""" THEN GOTO 2O30 

S@S0 IF at="C" THEN GOSUB 1000 

SO6@ [TF at="P" THEN GOSUR 11400 

S070 IF at="E" THEN GOSUB 12000 

S@8@ ITF ag="N" THEN GOSUB 123000 

S070 ITF a$="M" THEN GOSUR 14000 

S19@ IF ag="V" THEN GOSUB 15000 

S110 IF at="H" THEN GOSUB 164000 

SL20 IF at="X" THEN GOSUEB 1700@ 

SLZ0@ IF at="S" THEN GOSUBR 15aa@ 

Sid@ IF ag="L" THEN GOSUR 1900@ 

a15@ IF ag="B" THEN GOSUE 19500 

S170 GOTO 4 

F950 REM ioe: BER? clear grid «acc ne de 
190400 PRINT CHRS$ (23) ;CHRS(@) ; 

144040 y=S3968 

10045 b=SPACE$C 15) 

10050 FOR n=1 TO 1 

19064 PLOT Ss2,y,@ 

14@70 PRINT #1,h% 

19@30 y=y-14 

140970 NEXT wn 

1901060 GOSUEB 2S00ea@ 

19110 PRINT CHES C22) 5CHES C1); 

19120 RETURN 

1o950 REM 
1140® GOSUB 1a@0@o0® 
11@1% GOSUEBR 2doaoo 
1102060 GOSUB B22OoOo 
119640 RETURN 
119780 REM es 
12900 xw=lLiy=1 
12050 PRINT CHES (25) 5 CHES C1) 5 
12060 PLOT 352, 352,3 

12100 w1=S664x%e#162: yLl=Bya-yeié 


a a a ee 


pick-up Aas 


edit grid <<<<cedad 


12110 
12120 
12130 
1lZldo 
12159 
12160 
12170 
12180 
12190 


MOVE 


IF ri=i AND xe 
IF up=1 AND ye 
IF do=i AND 


MOVE 


IF q=4 


HFS C14) 3 
12260 


1232 a7) 


Ledau 

1l2d1i0 
12d20 
12d30 
1l2dd@ 
L290 
13000 
120da 
120350 
12060 
1307@ 
129090 
13190 
121194 


1 400 aa 
Ld@ao@ 
144060 
1d @7® 


GoTa 


GUSUE 
h=37d 


FOR n=1 TO 


a=S90 
xe=" 


FOR m= 


IF TE 


Vid) 


a=atl 
NEXT 
GOSUE 


heh 1 
NEXT 
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XL,y1iPRINT #1,CHESC1S9) 5 
GOSUB 29000 
IF le=1 AND x21 THEN x=x~-1 


THEN 
THEN y=y~1 
THEN y=y+1 


a3 me Fe 


ye 
xd, yitPRINT #1,CHESC159); 


12190 
REM * * * 


THEN GOTC 1220@ 
IF fi=l THEN MOVE 


quit * * ¥ 


2A OOO 


1 TO & 


ST (a, boee@ THEN MIDS¢ 


& 
m 


SSO00 
d¢char,m)=x 


6 
im] 


GOSUB 14546 


FE TULF: 
REM 


GOSUE 


N- 


OOO 


FOR n=1 TO OS 


CLS #2 


a 


PRINT #2, "value "51 
INPUT #2,va 


IF va® 


@ OF vars THEN GOTO 


A¢char,nm2=va 


NEXT 


CLS #2 


i) 


~~ 


GOSUE 14560 


RE TLR 
FEM 


GOSUB 


IF be 


N 


a tht 


ZAOOO 
PRINT #2," CVoOert/¢CH ori F" 
bS=INEEY$ 2 b$=LIPPERS €h$) 


ge ae ae 
GAs 


THEN CLS #2: GOTO 


1,y1l:PRINT #1,¢ 


xS,m,1) 


a ee 


Value entry #“<aceee 


13080 


14500 


172 Sensational Games for the Amstrad 


14@350 IF bS="H" THEN CLS #2:G0TO 1d1@0 
1d@9o GOTC 1d0é@ 

1d@7> FEM * * * HORIZONTAL * * * 

1d10® FOR n=1 TO &S 

14110 xw=d¢char,yn)?*GOSUB 22000 


{Td Leo yt="QOOOOOOD" 

14130 FOR m=1 TO 

ldid@® MIDS yH m,1=MIDSCnS,9-m, 1) 
14150 NEXT m 

14160 x$=yFiGUSue L2a@ae 
14170 NEXT vn 

Idis® GOTO 14560 
ldd9o FEM * * * VERTICAL * * * 

1d5OO FOR n=1 TO Sif ¢nd=dC charm) tNExT 


14510 FOR n=8 TH 1 STEP ~1 
ldS2O d¢char,no=fC9-nN) 
L1dS20 NEXT n 

ldFé@ x=12E:GOSUB 2EQ0oo 
143570 GOSUR 27000 

TdESO GOSUB 14@60o 

14590 GOSUAB 2Baaa 

1d6@O “e=LTEee:GOSUB 2Eaae 
14610 RETURN 


14930 REM 3ERoo RED vert. shift sseanee 
15900 GOSUB 2d@@o:PRINT #2," CUdp/ CD own 


15440 bS=INKEYS 2: b$=UPPERS Ch) 

158@5@ IF be="U" THEN CLS #2:G0TO 15120 
18060 IF b&="D" THEN CLS #2:G0TO 15070 
15670 GOTO 15a@da 

15@20 REM * * * down * * ¥ 

15090 FOR m=1 TO 7:GOSUR LSLS302NEXT m 
1S1@@ GOTO 1LSz1i90 

15110 FEM * * * wp # % 

1Sisz@ GOSUB LSiSea:GoTa Lazio 

15130 FOF n=1 TO 8 

LSid@® f¢nd=d¢char,n) 

15150 NEXT wn 

S170 d¢char,So=f¢1) 

15150 FOR n=2 TO Sid¢charyn-l1>=f Cn) tNEXT 
VI 

151970 RETURN 

15200 FEM * * * final * * * 

13210 GOUSUER 1db40 
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15230 RETURN 
FEM 2o2> >>> Hori. shift “fe e4 

164000 GOSUB 2doaoo 

164040 PRINT #2,"CLoeft/CR ight"; 

14050 bS$=INKEY$ 2: bS=LIPPERS Ch$) 

16060 IF bS="L" THEN CLS #2:G0TO 16100 

164070 IF bS="R" THEN CLS #2:G0TO 16510 

164050 GOTO 1645@ 

16407970 FEM * * * left * * * 

16100 FOR m=1 TO 7:GOSUR 1L166@O02NEXT m 

1641140 GOSUB 14540 

16420 RETURN 

164500 REM * * * right * * * 

165140 GOSUB 1660@:GOSUB 14560 

164520 RETURN 

16590 FEM * * ® divide * * * 

166400 FOR n=1 TO 

16610 fFfCnd=dCchar,n) 

16620 “=f Cn) EK=INTOCX/S)020F xeibfcno/72 THE 

N x=xtL eg 

16630 ACchar,n)=x 

166d@ NEXT 

166450 RETIN 

16990 FEM ooo eee SPD exchange se#eeagdae 

174@® GOSUB 2A4o0a 

17010 chari=char 

17450 GOSUB Fdooe 

179070 FOR n=1 TO S 

17050 FfCnd=d¢C char, 

17@9@ NEXT 

17100 FOF n=1 TO 

17110 dAcchar, noH=d¢charisnotd¢charl sno=F¢ 

m) 

17120 NEXT wn 

171240 GOSUBR 145460 

171id@ RETURN 

179730 FEM 

13000 PRINT #2,"Filename =" 

18@1@0 INPUT #2,n% 

138620 n=" OV +n 

1EO@20 SAVE nt ,b,da776, 256 

1536d® CLS #2 

@ FE TLIFN 

REM 32D DDD DD load feeedands 


1p) 


- 
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197@1@ PRINT #2,"Filename 7" 

19020 INPUT #2, ,n$i nga"! "+n 

19@20 LOAD ne 

17040 CLS #2 

17050 GOSUB 2146@:GOSUR 2700o 

19960 “=LS8:GOSUR 26000 

19470 GOSUBR 14@@0@:GOSUBR 22aao 

1703530 RETURN 

19450 FEM 2oooooo oP build pic #feeeen" 
19540 GOSUB 1'955@ 

196d GOSUB 2dO@Or ch=charteZe3 

19550 PRINT CHRE$(C 223) 5 CHES C1) 5 

196400 KES y=Sa8 

17610 MOVE x,y?PRINT #1,CHES¢ ch) 5 

17620 GOSUB 2700® 

19620 IF fi=1 THEN MOVE x,y?:PRINT CHES¢ 


S)ysCHES(@) 5,2 PRINT #1," "S2PRINT CHR ¢C 25 


;CHRS CL); 
19635 MOVE x,ytPRINT #1,CHRS(ch) 3 
19640 IF q=1 THEN GOTO 19700 


19650 IF ex=1 THEN GOSUB Sd@oo?ch=char+ 


19660 ewent1éeée¢Cle=1 AND x2 SS29-16*8¢Cri=1 
ND xt S90) 

19670 y=y-1lé*CupH=1 AND ye svso+1e*eCcdo=l 
ND ysSSe) 

17620 GOTO 19610 

19700 GOSUB 175850 

197714 GOSUE 100900 

19720 RETURN 

1lvedo® FEM * * * cls * * 

19350 PRINT CHE$C25);CHES(@)5;:PAPER © 
197260 FOR n=1 To 10 

LOCATE 2d,n 

PRINT SPCC1E) 

NEXT wn 

1377O@@ PRINT CHES C23) 5CHES C1) 5 

199710 RETURN 


l9V9e0 REM 2eo>> initialize screen 


29000 INE @,@:INE 1L,2dtINk 2,3:INK 3,15 


20@1@ PAPER @:MODE 1:BORDEFR © 
20020 PAPER 2:FOR n=1 TO 25 
20030 PRINT SPCC23)tPRINTINEXT 
200325 TAG #1 

29000 PRINT CHES (C23) 5CHRES C1) 3 


fae 
a 


> 


A 


fy 
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20050 PLOT @,39& 
20060 PRINT #1. 7 
’ 

2OO70 MOVE @, 382 
SO080° PRINT SPL , “eee eo sat enn ee eteeoe sa 


aoe’ 
No- Cld New No- led New" 


9 

2@110 y=SRe 

2@120 FOR n=1 TO 164 

Z2@1230 MOVE @,y:PRINT #1,2234+n5 CHES ¢(2234+n 
43 

2O1d@ MOVE 190,y:PRINT #1,239+n 5 CHES (239 
+1) 5 

2Q@150 y=y-Ze 

2@160 NEXT ni 

2@O170 GOSUEBR 27O@®o 

SOLEO “w=LBe:GOSUR B4oaM 

ZOLI® GOSUB 2Eaan 

20210 WINDOW #2,25,39,11,13 

20220 PAPER #2,1:PEN 42 ,02CLS #2 

2O2d@ RESTORE 2O31O:y=1a0@ 

SO250 FOR n=1 TO iit 

20260 READ n&iPLOT SS2,y,3:PRINT #1,LEFT 
$CnG,1)5 

SO270 PLOT SB98,y,1:PREINT #1,MIDS(nH,2,LE 
NCnh)) 5 

ZOBEO yay-1é 

2O290@ NEXT v1 

20300 PRINT CHES (2395 CHF C195 °-RETLURN 
29310 DATA Clear,Pick-up,Edit,Numbers ,Mi 
rror,Vert shift 

20320 DATA Hori shift,X-change,Build,Sav 
e,load 

20930 REM *>>> initialize variables 
2100®@ DIM fC¢S) 

21010 DIM ACSe, 8) 

210350 SYMBOL AFTER 224 

21960 addr=d3776 
21070 FOR n=l TI 
Z1@S0 FOR m=1 TO 
219090 d¢n,ym>=PEER Cada) 
21140 addr=addrti 

21110 NEXT m 

Z21iL2@ NEXT n 

21120 addr=2d999:GOSUB 29500 
SLS5O0 RETURN 


Crd 
 < 


mo td 
ne 
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21980 REM 2D SERED * draw char ¢404c4e4 
22000 PRINT CHES(C23)  ;CHESC1); 

22000 y=382 

22050 FOR m=1 TO & 

22070 xed¢Cchar,n)?GOUSUR 2SOa@ 

220580 PLOT 382,y,32PRINT #1,%% 

22090 y=y-1e 

22100 NEXT 1m 

22110 RETURN 

22950 FEM me 
23000 xS=BINSC x ,S) 

230d0 FOR m=1 TO 
25050 IF MIDS¢ xt ym,12="O" THEN MIDS¢C KS ,m 
,i>=" " 

23060 IF MID#¢ xt ym,19="1" THEN MIDSCxXS,m 
,1)=CHRS( 143) 

23070 NEXT m 

23080 RETURN 

239780 REM input char #Heiaee 
2400 PRINT #2,"character Y "SPRINT #2 

24010 no="" 

2d@d@ FOR n=1 TO 3 

2d@50 bS$=INREYS2 TF bso" a" CR beet o" THEN 
GOTO 24050 

2406@ PRINT #2, 685 ingen $+hs 

24070 NEXT n 

24075 CLS #2 

24030 char=VAL Cm) 

2d@S5 IF char (22d CFR chareSS THEN GOTO 
24000 

24090 char=char-Ze3 

24190 RETURN 

24980 REM ooo > 
25000 PRINT CHE 

25010 FOR n=1 TO FEPLOT x,y ,li DRAW x+127 
+¥ 

250020 y=y-16& 

2503@ NEXT n 

250d0 yH3n2 

25050 FOR n=1 TO FEPLOT x ,y,1liDFEAW x,yr1t 


ae 
25060 x=xX+t16 
225070 NEXT wn 
ZOOa0 RETURN 


“= 
x 
we 


fot fala a gg 


* draw gric 
Ss CHES CS) 5 ts 
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characters 


MOO PRINT CHES C239 5>CHRES C1) 5: 
“0,0,% 


26@0d0 FOR m=1 TO 146 


26050 MOVE xyy 

26060 PRINT nts "O'S CHES CBEUS 
BOs y* PRINT #1, * eCHRE(D594n) 5 
yFy-2z 

NEXT 1 

FE TRIN 

REM bbb SPR> array to chars ##eae4 
27000 addr=di776 

270d0 FOR n=1 TO S2°FOR m=1 TO & 

274050 PORE addr,d¢n,m) 

27060 addr=addr+i 

27070 NEXT m?tNEXT 
27030 RETURN 

271 FEO FRIEM ceo rs X$ to X eedcddad as 
RESTORE 280702 x=@ 

FOR m=1 TO & 

READ ai eet eee ag 

IF wee" "THEN x=x+y 

NEXT m 

FEE TLIFIN 

DATA 1258 ,64d,22,16,8,d,2,1 


x+1 


Now MERGE? the *’INEEYS? routine. 
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Your Phosphor Palette 


This is hi-tech art on your Amstrad, though it is unlikely that any of 
your ‘masterpieces’ will ever fetch thousands of pounds. 

The program starts by asking for the mode ((), | or 2) and colours 
to be used for the border (()-26), paper (@ 15) and the initial ink 
(0-15). A list of colour numbers is in your reference manual or in 
Appendix 5 of this book. A set of drawing colours are contained in 
the program. (Change the data in lines 2011 and 20120 for different 
colours.) The next request is fora picture name, which will be used 
for saving. 

The final option offered is to have an ‘information window 
displayed. This will constantly show the current x,y co-ordinates of 
the drawing pointer and may be used to plan out plotting sequences 
to be incorporated into programs. The map of Great Britain in this 
book was generated in this way. The window appears at the top or 
bottom of the screen and automatically moves if it is in the way, 
whilst the picture underneath is still retained. 

When the screen appears a graphic ‘pencil’ shows where the line 
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will be drawn. The pencil is moved using the joystick or cursor pad. 
Pressing the fire button or copy key changes the pencil to an eraser 
symbol. This will then rub out any lines that it passes over. If the fire 
button is pressed again a cross symbol will be displayed. This 
indicates that the cursor may be moved without drawing a line. Once 
in position to draw again, pressing the fire button will return to the 
pencil and draw mode. The cursor can be cycled through these modes 
by repeated pressing of the fire button. 

A very useful alternative to using the pencil is to use the ‘Auto line’ 
mode. First the ‘Move’ symbol is obtained and moved to where the 
line is to start. Pressing ‘Space’ gives a beep and stores that position. 
The cross is then moved to the second location, ‘Space’ pressed and a 
line will be drawn between the two points. 

At any time the current drawing ink can be changed using the 
‘Enter key. Each press of the key steps through the available inks and 
the cursor changes colour to show the one selected. 


‘Shift’ ‘S’ saves the current picture immediately to tape when 
selected. ‘Record’ and ‘Play’ should be pressed beforehand as 
prompts are not displayed. 

‘Shift’ ‘L’ then ‘Play’ on the tape deck will load the first picture file 
found. The current screen will be cleared and the new one displayed. 


Although drawing a picture can take some time, dependent upon 
the mode, producing ‘art’ in this way can be very enjoyable. 


1 REM eee picture builder <> ISSI 223% 
2 REM 

S00 SYMBOL 240, 2d0,200,164,14d6,79,47,390, 
S1@ SYMBCL 2di,2dO, 226,225 ,152,24d,56,66, 
1 

S20 SYMBOL 2d2,2dO, 15d ,220,2355,119,56,27 
,1@ 

6£0@ MEMORY 23699 

61@ SPEED WRITE 1 

19 GOSUR 2100®@ 

1010 x=Oty=S3997tdr=1:11=a 

1920 hd=divd=2:TAG #3 

1@2@ IF m=1 THEN hd=2 

1@d@ IF m=2 THEN hea=1 

1190 GOSUB 25000 

Llid@ IF yeS@ THEN po=S95 ELSE po=Z@ 

1150 w=" "+STRECHOt"y "+STRSCyo+" ink " 
+STRE Cpe) 
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1155 PRINT CHES ¢22) 5; CHESC1) 5 

1160 IF inf=1 THEN MOVE @®,potPRINT #3,ws 
3 

1200 PRINT CHES C2395 CHES C1) 5 

12190 PLUT x,y,pe 

1220 PRINT #2,CHES(¢2d@+dr) 5 

1230 PRINT CHRS(C23) 5 CHES Cdr) 5 

izd@ IF dr=Z2 THEN ko=pap ELSE ko=pe 

1250 PLOT x,y,pe 

1260 PLOT x,y,ko 

1379 PRINT CHRS¢€23) 5CHRSC1); 

1300 PLOT x,y,pfe 

13970 PRINT #2,CHRS$(2d0+dr) ; 

1d@@ PRINT CHR#( 23) pCHRS Cdr) 5 

ldd@ PRINT CHRS¢ 22) 5 CHRS(1) 5 

1dS0 IF inf=1 THEN MOVE @,po PRINT #23,wt 


3 

1d4@ IF sav=1 THEN GOSUB 150@@ 
1470 IF lo=1 THEN GOSUB 1LSBSa® 
lds® IF li=i THEN GOSUB Z230@a 
1500 
1772a@ ae 
15@0@ CALL 2370@ 
13010 SAVE nt ,b,&GAEO, &3FFF 

15020 RETURN 

1SdS4O FEM ooo o Soe EP? Load tates ass 
13500 LOAD "I!" 

1S51@ CALL 23715 

13520 RETURN 

19980 REM boooee initialisation “#23044 
2000@ MODE 1:PAPER @:PEN 1 

2@@1@ INPUT "MCIDE ¥" 4m 

20020 IF m=@ THEN co=15:GOTO 20060 
20030 IF m=1 THEN co=3 #GOTC 2006 
20040 IF m=2 THEN co=1 GOTO 20060 
20050 GOTO 20019 
20060 RESTORE 20119 
20070 FOR n=@ TO co 
20030 READ a 

20090 INK nya 

2O10@ NEXT vn 

2@11@ DATA @,18,24,2,6 
ZO1Z0 DATA 2,21,26,5, 
2O130 CLS 

201d@ INPUT "BORDER "sho 


Ce ee ee) 
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20150 IF bot@ OF botS7 THEN GOTO 20130 
29160 BORDER ho 

20170 CLS 

20150 INPUT "PAPER “spap 

29190 IF papt@ OR papee7 THEN GOTO 2@17@ 
29200 PAPER pp ar 

290210 CLS 

20220 INPUT "INITIAL INK "spre 

20230 IF pet@ OR petco THEN GOTO 20210 
2024 PEN pe 

20250 CLS 

29260 INPUT "Name to "SAVE? " nit 

29279 n="! VU +ngs 

20260 CLS 

20290 INPUT "Information window ¥",a% 
29300 inf=0 

2Q@310 IF ag="y" CR ag="Y" THEN inf=1 
20244 MODE m 
Z2O350 RETURN 


ZOIEO FF > hadi cdeee des 
21400® GOSUEB 

21010 addr=237291 GUSUER SYl@e@ 

£1020 GOSUBR Zaaaa 

21020 TAG #2 

£1100 RETURN 

22000 SOUND 1,200,190, 15 

23010 IF flag=1 THEN GOTO 23050 

23020 flag=lixl=xtyl=yidr=1 

23030 td=hdthd=hdes i vd=6 

22040 RETURN 

23050 flag=@ihd=tdivd=2 

2E@6@ PRINT CHRS C23) 5 CHES CO) 5 

23070 PLOT x,y,petDRAW xl,yl 

Z=@GO PRINT CHR C239 5 CHRS C1) 5 

220970 RETURN 

279780 REM FReeoe: movement <<2ecadde 


253000 GOSUB 27000:11=O@:sav=@: lo=a 
sarived IF le=1 AND x3@ THEN x=x-hea 

IF ri=i AND x#639 THEN x=x+had 

SS IF up=i AND vi S299 THEN y=ytvd 
2BO@d@ IF do=1 AND y?@ THEN y=y-va 

ZEQ5Q0 IF fii THEN dr=dr+itIF dr=3 THEN 


28060 PRINT CHR (23) CHES Cdr) 5 
28070 IF q=1 THEN pe=pe+iszIF pe=16 THEN 
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ex 


i 


28110 

S120 
29980 
SOOAD 
2OO1O 
SOO2D 
SOO3SO 
=OOID 
SOORO® 
SO060 
SOO7TO 
3OAaSO 
SOOIO 


Now 


IF ex=1 THEN 11=1 

IF a=67 THEN CLS 

IF a=S3 THEN sav=1 

IF a=76& THEN lo=1 

FE TLUPFIN 

REM 33> o>>> poke b/move ffdeeneds 
RESTORE 320060 

FOR n=237@0 TO 2a726 

READ a 

PORE nya 

NEXT ni 

RE TURIN 

DATA 33,0,172,17,224d,106 

DATA: tj 2o0sOo uel, peace ts 59,9 
DATA 33,224,106, 17,0,1 = 

DATA 1,255,63,257, 176,201 
‘MERGE’? the “INKEYS’? routine «- - 
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Arnold Monitor 


Pitesti iespate 
ee eens 


eicosanoid tes 


mmmnpprnni 
Srascunee 
ASS AE 

SALAMI 


GOP OF 


Open RAM Surgery 


This utility, which bears the Amstrad’s original name, will help with 
investigations into memory. The machine’s ROM routines can be 
looked at or any program which can co-reside in RAM can be 
examined. Memory can be modified, saved or loaded. 


Command summary 


View Memory. Asks for the start and finish locations, which have 
to be decimal. The memory contents will then be displayed in blocks 
of ten. ‘Space’ steps through to the ‘finish’. ‘Text’ can be read from the 
ASCII columns. 

Checksum. Asks for the start and finish. All the values are then 
totalled in decimal, inclusive of the addresses entered. This option is 
useful when entering from a listing which provides a ‘Checksum’ to 
check if errors have occurred. 

Modify mem. Again the start and the end addresses are required. 
Then the display shows the current value. Pressing ‘Enter’ will retain 
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this value and the next location will be displayed. Typing numbers 
followed by ‘Enter’ will put what is typed into the current address. If 
the value is invalid then this will be indicated and no changes will be 
made to memory. The next location will then be shown. Great care 
should be taken, since any RAM may be modified with perhaps 
surprising results. (All entries are in decimal.) 

Save. Asks for start and finish (decimal), then the file name. Saving 
commences when ‘Enter’ is pressed. ‘Record’ and ‘Play’ should be 
pressed prior to selecting the ‘Save’ option. 

Load. This, when followed by pressing ‘play’, loads the first file 
found. 

‘Shift’ ‘Q’ will quit any option. 


1 REM «se<e¢¢ monitor <2 ISSI fbbeebs 
2 REM 

200 MEMORY 8200 

310 SPEED WRITE 1 

1@@® GOUSUB 2ZOoOo 

150@ PRINT #1,"Type Your Choice .« - -" 
1510 at=INKEYS! a$=LIPPERS$( as) 

1320 IF at="V" THEN GOSUR £19000 

1530 IF a$="M" THEN GOSUR 2200 

15d IF ag="C" THEN GOSUB 2300 

1550 IF atg="S" THEN GOSUR Z2daoo 

15640 GOTO 1510 

199730 REM “* screen 
20000 INK @,@:INK 1,26:INE 2, 
20@@1@ MODE 1 

20020 WINDOW #1,2,39,4,29 
2O@@30 PAPER S:PEN Z°!BORDER @:CLS 
20040 PAPER #1,@:PEN #1,1:°CLS #1 


20050 PRINT " ARNCLD MACHINE CODE M 
ONITOR" 
2O06@ PRINT "000 semen eec anne enna 


Z2@070 LOCATE 4,22:PRINT "CVOiew memory" 
20080 LOCATE d,24d:2PRINT "CM>dodify memory 


2OO97O0 LOCATE 25,22:PRINT "(Cohecksum" 
20196 LOCATE 25,2d:PRINT "(CS)ave\load" 
20200 RETURN 

2O9SO REM FoRoSE: 

2100@ GOSUB 
21070 CLS #1 
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21950 PRINT #1,"Address Chex) Va 
lue (hex) 0 ween eee ee 
21090 FOR n=d TO 13 

21100 LOCATE #1,1,n°PRINT #1,5ta 

21110 LOCATE #1,14,n:PRINT #1, "C'SHEX#¢S 
tads")" 

SL11iZ@ LOCATE #1,2d,n:2PRINT #1,PEEKCsta) 

21130 LOCATE #1,31,n:PRINT #1,"C"s;HEXSCP 
EEE Cstadd3")" 

flld@ LOCATE #1,1&,n:2PRINT #1,CHR$¢1)5CH 
R#CPEEKC stad); 

Z2lidS IF ag="m" THEN GUTO 22es0 

21150 sta=statiliIF sta=fin+l THEN GOTO 2 
L20@ 

ZLL60 NEXT mn 

21170 at=INKEEYS 

21175 IF ag="" THEN GOTO 21 e2@ 

21180 IF aie" " THEN GOTO 21170 

21190 GOTO 219070 

21200 ag=INKEYS 

21210 IF ate" " THEN GOTO 21200 

BL1220 CLS #1:°RETURN 

SL9SO REM 3ooo >> E> modify tecedendas 

ZEOOO GOSUBR 2EOO® 

229070 CLS #1 

22080 PRINT #1, "Address Chex) Va 
Life.) (RES SSeS SSeS SS 
22090 FOR ned TO 13 

2E1@@ LUCATE #1,1,n°PFEINT #1i,sta 

22110 LOCATE #1,1@,mn2PRINT #1,"C"5HEXSC5 
tad3")>" 

SELZ@ LOCATE #1,2d,n:PRINT #1,PEERCstad 

SE120 LOCATE #1,21,n 

221d@ at=INEEY#:1F ag=""" THEN GOTO 2eldo 
ZeidS IF atg="G" THEN GOTO 2223a 

22150 IF a$i"@" OF age" o9" THEN GOTO 2216 
2) 

SELSS GOSUB 225a@ 

22160 sta=statliIF sta=fint+l THEN 22210 

ZEL17O0 NEXT mn 

22150 at=INEEYS 

BEL90 IF at<e" " THEN GOTO 22150 

22200 GOTO 22070 
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Z2EE10 at=INEEYS 

SE2EO IF a$<e" " THEN GOTO 22210 
22250 CLS #1:2:RETURN 

SEAd90 REM * * * mod * * * 

SE50@ n$=""sSPRINT #1, a8 5 ind=n$+ah 
22510 GOSUR 22600 

22520 IF at=CHE$¢C13) THEN GOTO 22700 
22530 GOTO 22510 

22600 a$=INKEEYS 

22610 IF at="" THEN GOTO 22600 
22620 IF CagivO" OF age"a") AND ag< >CHES 
(13) THEN GOTO 22600 


BEESQ IF atg=CHR#$C13) THEN RETURN 


22640 ng=nb+abi PRINT #1,a%5 

22650 RETURN 

ZE7O®O a=VAL CNH) SIF at@ OF areSh THEN SOU 
ND 2, 240,25, 15° RETURN 

22710 POKE (¢stad,a 

22720 LOCATE #1,24,n2PRINT #l1,aj5" " 
22730 RETURN 

22930 REM &: 
22004 GOSUE 
239010 tot=@ 
23020 FOR n=sta TO fin 

22030 LOCATE #1,19,10 

22040 PRINT #1,n 

ZI950 tot=tot+PEER Cn) 

23055 aS=INREYS:1IF at="H" THEN n=fin 
23060 NEXT 1 

25970 SOUND 1,3@0,25,1%5 

22080 SOUND 1,200,235 ,15 

23090 SOUND 1,190,235 ,15 

23120 LOCATE #1,14,12 

23130 PRINT #1,"Check="stot; 

231d@ at=INKEYS 

23150 IF atte" " THEN GOTO 221d@ 

22160 CLS #1 

23170 RETURN 

22750 REM 35337 save/load titeccdcd 
2d00@ PRINT #1," (Save or (LIoad F 
24010 at=INKEYS: as=LIPPERS Cat) 

2£d020 IF at="S" THEN GOTO Sd@sto 

24030 IF a$="L" THEN GOTO 2dao 

2d0d0 GOTO Sdo1@ 

24@50 CLS #1 


ee ee ee 


checksum “aig aa 
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24074 GOSUER 26000 


2d05@ IF stata@a@® THEN GOTO Zdas@ 
24090 CLS #1:°INPUT #1,"Name "gr 


S4100 nH"! "+n 

2d110 SAVE nS ,b,sta,fin-statrl 
Sd120 CLS #1 

24130 RETURN 

24500 CLS #1 

24510 INPUT #1,"Filename "sn 
24520 nee" "4h 

240530 LOAD n$ 

ZdSdo@ CLS #1 

24550 RETLUPFN 


ZhIS® REM FSP PES SEES Gnput <i¢4 


26010 PRINT #1," Start 2" 
26020 GOSUB 2@G0a 


269030 IF addri@ OR addrsGéS535 THEN 2600 


26040 sta=addr 

26050 SOUND 2,300,235 ,15 

26060 CLS #1:°PFINT #1," Finish 
FEOTOA GUSUBR SOoa® 

26080 IF addri@ OF addrré55 35 
ZE0OI0 finz=addr 

26100 CLS #1 


Z611@ IF sta?=fin THEN GOTO 2600 


26150 RETURN 

Z2IIEO REM Foe EP PES anput addr 
50000 nsa"" 

30010 at=INKEYS 


THEN 26460 


ea et of a ee 


BOOZ IF Cagev"O" OF age"9") AND ae CHES 


€13) AND a##eCHE$(127) THEN GOTO 


ZOO1L@ 


BOO@25 IF aS=CHE$C127) AND LENCné)21 THEN 


GOTO 30019 


EN(Cn$9-19'GOTO 30050 
20040 n$=nFt+as 


S@O3S@ IF at=CHE$ C127) THEN nS=LEFTS¢n$,b 


SOO8@ SOUND 2,150, 5,155LOCATE #1,19,1@ 


39060 PRINT #1,n%5" " 

30070 IF at=CHE#$C1S) THEN GOTO 
30080 GOTO S@01@ 

300970 addr=VAL (ns) 

20100 RETURN 


BOOIA 


Final Words 


In producing this book an attempt has been made to adopt a 
standard of game which is well above the norm. 

This naturally leads to longer programs which require greater care 
to enter. The time will come therefore when you will need to debug 
your programs. This is when you have the opportunity to try to 
understand how and why the programs work. 

To help you in this task there follows a ‘debug guide’. 


General points 


1. Get someone else to double check that the entry matches the 
listing. Say it out loud. 

2. Remember that in 40-column mode the listing should match the 
screen line by line. 

3. Be careful that an I has not been confused with a I. 

4. Ensure that lower case ‘a’ is entered as such and not ‘A’. 

5. Watch out for‘? instead of *:’. 

6. Double check spaces by reference to the spaces above and 
below. 

7. Double check line numbers. Don’t confuse a number which 
flows over onto another line as a line number. 

8. Treble check data. It is very easy to skip a few numbers. As an 
overall check, count how many commas and compare with the 
listing. 

9. Make sure that all quotes are in. 

10. Is there really a fault? Re-read the instructions for play. Most 
responses need to be followed by the ‘Enter’ key. 
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Specific problems 


1. To save space whilst still including substantial programs, 
extensive use 1s made of merging. Familiarise yourself with this 
technique on a simple program first. We anticipate some problems 
from readers in using this technique, but consider the finished results 
to be worth while for the majority. 

2. One of the main sources of program failure is poor handling of 
bad entries. For example, a program may crash if an unexpected 
minus number were entered. It is possible to anticipate most ‘silly’ 
entries but only at the expense of needlessly longer listings. In writing 
these programs it has been assumed that the player will not set out to 
crash the program! They are therefore only protected against class 
three idiots. If you will be exposing your finished efforts to a hostile 
environment then it is up to you to protect against class one idiots. 

3. All programs should work equally well on the monochrome 
Amstrad, but change the colours (after saving the correct version) to 
suit your own taste. Micro Mind can use symbols instead of colours 
to make the game playable in monochrome. 

4. It is always good practice to load into a machine which has just 
been powered up. This can avoid problems if the previous program 
left something changed deep within the machine. 

5. Unfortunately the Amstrad ‘Random’ function has been found 
to be very predictable. Care has been taken to minimise this problem 
whenever possible but you may be able to remember certain 
sequences. 


Debugging 


If none of the foregoing resolve the problem then roll up your sleeves 
and note some of these tips. 


1. Ifan error message indicates a fault is in a particular line, but it 
looks right when examined, remember that the fault could be in the 
line which passes information to that line. Check back related lines. 

2. Errors such as ‘Out of range’, ‘Improper argument’, etc., may be 
traced as above. To help type ‘PRINT A’ or whatever variables are 
used in that line. This should indicate the problem. 

3. Bits being missed out! The Amstrad’s ‘Tron’ function will show 
the order in which lines are called, often highlighting a rogue 
‘“GOSUB’ or similar problem. 
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4. Work methodically. Consider each section in turn. Set ‘Break 
points’ using ‘End’ or dump out variables by adding a short print line 
in the middle of the faulty routine. 

5. Temporarily disable sections of program by adding a ‘REM’ to 
the start of a line. See what the effect is. 

6. Re-type the section responsible! During development of these 
programs some ‘Out of memory’ errors could only be mysteriously 
solved by re-entering a single ‘perfect’ line. 

7. Use the ‘On error’, ‘Erl’ and ‘Err’ functions normally as 
described in the manual. 

8. Go to bed — have a sleep. It sometimes works the next day! 


Appendix 1: Complete Amstrad Character Codes 


CHARACTER CHR$ | CHARACTER CHR$ | CHARACTER CHRS$ | CHARACTER CHR$ 
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CHARACTER CHRS | CHARACTER CHR$ | CHARACTER CHR$ | CHARACTER CHRS$ 


t ” $85338, 
Ph, fy a H : 
128 : 160 ? 19. igen 2M 
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ay fs ho [iy 
Hi 130 ns 162 ” 104 ull 2% 
7 he 
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Appendix 2: Defined Character Design Aid 
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CHARACTER DEFINITIONS 
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Appendix 3: Screen Layout Planner 


MODE ® 20 COLUMNS x 25 ROWS 16 COLOURS 
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MODE 1 40 COLUMNS x 25 ROWS 4 COLOURS 
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2 COLOURS 
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MODE 2 
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Appendix 4: Amstrad Memory Map 
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Appendix 5: Amstrad Colour Table 


SOmAAIDUNUARWN— OS 


— 
N= 


COLOUR 


BLACK 

BLUE 

BRIGHT BLUE 
RED 
MAGENTA 
MAUVE 
BRIGHT RED 
PURPLE 
BRIGHT MAGENTA 
GREEN 

CYAN 

SKY BLUE 
YELLOW 


COLOUR 


WHITE 

PALE BLUE 
ORANGE 

PINK 

PALE MAGENTA 
BRIGHT GREEN 
SEA GREEN 
BRIGHT CYAN 
LIME GREEN 
PALE GREEN 
PALE CYAN 
BRIGHT YELLOW 
PALE YELLOW 
BRIGHT WHITE 


Appendix 6: Quick Syntax Checker 


The Amstrad manual contains a comprehensive and instructional 
section for each part of the BASIC syntax. However, sometimes it is 
useful to be able to have an idea of which ‘word’ is required before 
looking it up. This list of all the keywords has been separated into 
useful subsections. Anyone wishing to learn the commands 
associated with say‘SOUND’ would simply look up the correct list and 


then refer to the individual section in the Amstrad manual. 


MATHS DRAWR POKE 
ABS MOVE REMAIN 
AND MOVER RETURN 
ATN ORIGIN SPEEDINK 
CINT PLOT SPEEDWRITE 
COS PLOTR STEP 
CREAL TAG STOP 
DEF TAGOFF THEN 
DEG TEST TIME 
EXP TESTR TO 
FIX WAIT 
FN CONTROL WEND 
INT AFTER WHILE 
LOG CALL WIDTH 
LOG 10 DI 
MAX El SOUND 
IN ELSE ENT 
MOD END ENV 
NOT ERROR ON SQ 
OR EVERY RELEASE 
PI FOR SOUND 
RAD GOSUB SQ 
RANDOMIZE GOTO 
RND IF PROGRAMMING 
ROUND INKEY AUTO 
SGN INKEY$ CLEAR 
SIN IMP CONT 
SQR JOY DATA 
TAN LINE INPUT DELETE 
UNT NEXT DEFINT 
XDR ON DEFREAL 
ON BREAK DEFSTR 
GRAPHICS ON ERROR GOTO DIM 
CLG OUT EDIT 
DRAW PEEK ERASE 
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ERL CHAIN STRINS 
ERR CLOSEIN UPPER$ 
FRE CLOSEOUT VAL 
HIMEM EOF 
INPUT LOAD SCREEN 
KEY MERGE BORDER 
KEY DEF OPENIN CLS 
LET OPENOUT INK 
LIST SAVE LOCATE 
MEMORY MODE 
NEW STRING PAPER 
READ ASC PEN 
REM BINS POS 
RENUM CHR$ PRINT 
RESTORE DEFSTR SPC 
RESUME HEX$ TAB 
RUN INSTR USING 
SYMBOL LEFT$ VPOS 
SYMBOL AFTER LEW WINDOW 
TROFF LOWERS WINDOW SWAP 
TRON MID$ XPOS 
RIGHTS YPOS 
FILES SPACES ZONE 


CAT STR$ 


Here is a selection of 24 exciting, high-quality games 
written especially for the Amstrad and designed so the 
reader can create his own games using the basic 
subroutines in the book. All categories of games are 
included from the classic Maze Maniac to educational 
games such as Sum Fun. Each program is presented to 
appeal to all Amstrad owners no matter how old or 
young, whether you are completely new to computing or 
fairly experienced. A selection of useful routines is also 
given to help you modify the memory, create original 
graphics and develop your own programs. A reference 
section includes character codes, memory map, quick 
syntax checker and screen and char grid. 


All the games make full use of the Amstrad's facilities and 
are thoroughly tested and crash-proofed. 
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